[Bio] / FigKernelPackages / raelib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/raelib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20, Fri Jun 10 16:43:27 2005 UTC revision 1.21, Sat Jul 9 19:59:23 2005 UTC
# Line 462  Line 462 
462                    "</TD>",                    "</TD>",
463                    "   </TR>\n",                    "   </TR>\n",
464                    "</TABLE>\n",                    "</TABLE>\n",
                   $cgi->hr  
465          );          );
466  }  }
467    
468    
469    =head2 scrolling_subsys_list
470    
471    Create a scrolling list of all subsystems. Just like scrolling_org_list, this will make the list and allow you to select multiples.
472    
473    use like this
474    
475    push @$html, $raelib->scrolling_subsys_list($cgi, $multiple);
476    
477    =cut
478    
479    sub scrolling_subsys_list {
480     my ($self, $cgi, $multiple)=@_;
481     $multiple=0 unless (defined $multiple);
482     my @ss=$fig->all_subsystems();
483     my $label;
484     # generate labels for the list
485     foreach my $s (@ss) {my $k=$s; $k =~ s/\_/ /g; $k =~ s/  / /g; $k =~ s/\s+$//; $label->{$s}=$k}
486     return $cgi->scrolling_list(
487      -name    => 'subsystems',
488      -values  => \@ss,
489      -labels  => $label,
490      -size    => 10,
491      -multiple=> $multiple,
492     );
493    }
494    
495    =head2 subsys_names_for_display
496    
497    Return a list of subsystem names for display. This will take a list as an argument and return a nice clean list for display.
498    
499    $raelib->subsys_names_for_display(@ss);
500    or
501    $raelib->subsys_names_for_display($fig->all_subsystems());
502    
503    =cut
504    
505    sub subsys_names_for_display {
506     my ($self, @ss)=@_;
507     foreach (@ss) {s/\_/ /g; 1 while (s/  / /g); s/\s+$//}
508     return @ss;
509    }
510    
511  =head2 GenBank  =head2 GenBank
512    
513   This object will take a genome number and return a Bio::Seq::RichSeq object that has the whole genome   This object will take a genome number and return a Bio::Seq::RichSeq object that has the whole genome

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3