[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.21, Tue Aug 9 18:12:16 2005 UTC revision 1.22, Wed Aug 10 16:17:52 2005 UTC
# Line 276  Line 276 
276              foreach $r (@$react_for_role)              foreach $r (@$react_for_role)
277              {              {
278                  $reaction{$r}->{$protein} = 1;                  $reaction{$r}->{$protein} = 1;
279                  push(@{$topic{$category}},$r);                  $topic{$category}->{$r} = 1;
280              }              }
281          }          }
282      }      }
# Line 284  Line 284 
284      my @all       = sort { $a cmp $b } keys(%topic);      my @all       = sort { $a cmp $b } keys(%topic);
285      foreach $category (@all)      foreach $category (@all)
286      {      {
287          &show_class_react($fig,$cgi,$html,$category,$topic{$category},\%reaction);          &show_class_react($fig,$cgi,$html,$category,[keys(%{$topic{$category}})],\%reaction);
288      }      }
289    
290      if ($_ = $topic{"Misc"})      if ($_ = $topic{"Misc"})
291      {      {
292          &show_class_react($fig,$cgi,$html,'Misc',$_,\%reaction);          &show_class_react($fig,$cgi,$html,'Misc',[keys(%$_)],\%reaction);
293      }      }
294  }  }
295    
# Line 298  Line 298 
298      my($r,@pegs,$peg);      my($r,@pegs,$peg);
299    
300      push(@$html,$cgi->h1($class));      push(@$html,$cgi->h1($class));
301      foreach $r (@$for_topic)      foreach $r (sort @$for_topic)
302      {      {
303          my $disp_react = $fig->displayable_reaction($r);          my $disp_react = $fig->displayable_reaction($r);
304          $disp_react =~ s/^R\d+\: //;          $disp_react =~ s/^R\d+\: //;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3