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

Diff of /FigWebServices/genome_statistics.cgi

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

revision 1.23, Wed Aug 10 17:13:45 2005 UTC revision 1.24, Tue Aug 16 19:40:15 2005 UTC
# Line 44  Line 44 
44  my @genomes = $cgi->param('genome');  my @genomes = $cgi->param('genome');
45  my $request = $cgi->param('request');  my $request = $cgi->param('request');
46    
47    if (!$request)
48    {
49        #
50        # Support for coming here from the NMPDR pages, where we have a form
51        # with a pair of submit buttons, one for subsystems summary, one for
52        # reactions summary.
53        #
54    
55        if ($cgi->param("show_reactions"))
56        {
57            warn "have show readtions\n";
58            $request = "show_reactions";
59        }
60        elsif ($cgi->param("show_subsystems"))
61        {
62            warn "have show subsystems\n";
63            $request = "show_subsystems";
64        }
65    }
66    
67    warn "REQ='$request'\n";
68    
69  if ($request eq "subsystems_summary")  if ($request eq "subsystems_summary")
70  {  {
71      &subsys_summary($fig,$cgi,$html);      &subsys_summary($fig,$cgi,$html);
# Line 261  Line 283 
283      my(%reactions_for_sub,%class,$reactions,$classL,$category);      my(%reactions_for_sub,%class,$reactions,$classL,$category);
284    
285      my($subsystem_data,$assignments_data) = &get_data($fig,$cgi,$genome);      my($subsystem_data,$assignments_data) = &get_data($fig,$cgi,$genome);
286    
287      foreach $_ (@$subsystem_data)      foreach $_ (@$subsystem_data)
288      {      {
289          ($sub,$role,$protein) = @$_;          ($sub,$role,$protein) = @$_;
# Line 286  Line 309 
309      }      }
310    
311      my @all       = sort { $a cmp $b } keys(%topic);      my @all       = sort { $a cmp $b } keys(%topic);
312    
313        if (@all == 0)
314        {
315            push(@$html, $cgi->p("No class reactions found."));
316        }
317      foreach $category (@all)      foreach $category (@all)
318      {      {
319          &show_class_react($fig,$cgi,$html,$category,[keys(%{$topic{$category}})],\%reaction);          &show_class_react($fig,$cgi,$html,$category,[keys(%{$topic{$category}})],\%reaction);
# Line 295  Line 323 
323      {      {
324          &show_class_react($fig,$cgi,$html,'Misc',[keys(%$_)],\%reaction);          &show_class_react($fig,$cgi,$html,'Misc',[keys(%$_)],\%reaction);
325      }      }
326        else
327        {
328            push(@$html, $cgi->p("No misc reactions found."));
329        }
330    
331  }  }
332    
333  sub show_class_react {  sub show_class_react {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3