[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.23, Mon Jul 11 21:25:03 2005 UTC revision 1.24, Thu Aug 4 22:35:28 2005 UTC
# Line 379  Line 379 
379    
380  This is the list from index.cgi, that I call often. It has one minor modification: the value returned is solely the organisms id and does not contain genus_species information. I abstracted this here: 1, so I could call it often, and 2, so I could edit it once.  This is the list from index.cgi, that I call often. It has one minor modification: the value returned is solely the organisms id and does not contain genus_species information. I abstracted this here: 1, so I could call it often, and 2, so I could edit it once.
381    
382  use like this push @$html, $raelib->scrolling_org_list($cgi, $multiple);  use like this push @$html, $raelib->scrolling_org_list($cgi, $multiple, $default);
383    
384  multiple selections will only be set if $multiple is true  multiple selections will only be set if $multiple is true
385    
386    default will set a default to override (maybe) korgs
387    
388  =cut  =cut
389    
390  sub scrolling_org_list {  sub scrolling_org_list {
391   my ($self, $cgi, $multiple)=@_;   my ($self, $cgi, $multiple, $default)=@_;
392   unless ($multiple) {$multiple=0}   unless ($multiple) {$multiple=0}
393    
394   my @display = ( 'All', 'Archaea', 'Bacteria', 'Eucarya', 'Viruses', 'Environmental samples' );   my @display = ( 'All', 'Archaea', 'Bacteria', 'Eucarya', 'Viruses', 'Environmental samples' );
# Line 452  Line 454 
454                                          -labels   => $label,                                          -labels   => $label,
455                                          -size     => 10,                                          -size     => 10,
456                                          -multiple => $multiple,                                          -multiple => $multiple,
457                                            -default  => $default,
458                                        ), $cgi->br,                                        ), $cgi->br,
459                    "$n_genomes genomes shown ",                    "$n_genomes genomes shown ",
460                    $cgi->submit( 'Update List' ), $cgi->reset, $cgi->br,                    $cgi->submit( 'Update List' ), $cgi->reset, $cgi->br,

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3