[Bio] / FigWebServices / subsys_summary.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys_summary.cgi

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

revision 1.13, Sat Feb 12 23:01:18 2005 UTC revision 1.14, Sat Feb 12 23:06:44 2005 UTC
# Line 99  Line 99 
99    
100    # figure out which genomes are in this subsystem    # figure out which genomes are in this subsystem
101    my %genomes;    my %genomes;
102    foreach my $gen (@{$fig->subsystem_genomes($subsys)}) {$genomes{$gen->[0]}=$gen->[1]}    foreach my $gen ($fig->get_subsystem($subsys)->get_genomes()) {$genomes{$gen}=$fig->genus_species($gen)}
103    
104    # start a new row for this data    # start a new row for this data
105    # tablerows is a refence to an array.    # tablerows is a refence to an array.
# Line 319  Line 319 
319      my $n_genomes = @orgs;      my $n_genomes = @orgs;
320    
321      push @$html,  $cgi->start_form,      push @$html,  $cgi->start_form,
                   "Enter user: ", $cgi->textfield(-name=>'user', size=>20), $cgi->p,  
322                    $cgi->h2("Please choose one or more organisms from the list below to see in the subsystems table"),                    $cgi->h2("Please choose one or more organisms from the list below to see in the subsystems table"),
323                    "<TABLE>\n",                    "<TABLE>\n",
324                    "   <TR>\n",                    "   <TR>\n",
# Line 340  Line 339 
339                    "   </TR>\n",                    "   </TR>\n",
340                    "</TABLE>\n",                    "</TABLE>\n",
341                    $cgi->p,                    $cgi->p,
342                      "Enter user: ", $cgi->textfield(-name=>'user', size=>20), $cgi->p,
343                    $cgi->checkbox(-name=>"stats", -label=>"Only show statistics", -checked=>'on'), $cgi->p,                    $cgi->checkbox(-name=>"stats", -label=>"Only show statistics", -checked=>'on'), $cgi->p,
344                    $cgi->checkbox(-name=>"levels", -label=>"Show subsystem classification", -checked=>'on'), $cgi->p,                    $cgi->checkbox(-name=>"levels", -label=>"Show subsystem classification", -checked=>'on'), $cgi->p,
345                    $cgi->checkbox(-name=>"genomes", -label=>"Show genomes in subsystem", -checked=>'on'), $cgi->p,                    $cgi->checkbox(-name=>"genomes", -label=>"Show genomes in subsystem", -checked=>'on'), $cgi->p,

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3