[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.24, Tue Aug 16 19:40:15 2005 UTC revision 1.25, Sun Sep 11 16:34:41 2005 UTC
# Line 225  Line 225 
225      my(%in,$sub,$role,$protein,$sub_link,$tuple,$categories);      my(%in,$sub,$role,$protein,$sub_link,$tuple,$categories);
226    
227      my($subsystem_data,$assignments_data) = &get_data($fig,$cgi,$genome);      my($subsystem_data,$assignments_data) = &get_data($fig,$cgi,$genome);
228        my $active = $fig->active_subsystems($genome);
229      foreach $_ (@$subsystem_data)      foreach $_ (@$subsystem_data)
230      {      {
231          ($sub,$role,$protein) = @$_;          ($sub,$role,$protein) = @$_;
232            if ($active->{$sub})
233            {
234          push(@{$in{$sub}->{$role}},&HTML::fid_link($cgi,$protein,0) . ": " . scalar $fig->function_of($protein));          push(@{$in{$sub}->{$role}},&HTML::fid_link($cgi,$protein,0) . ": " . scalar $fig->function_of($protein));
235      }      }
236        }
237    
238      my @subs = sort { ($a->[0] cmp $b->[0]) or      my @subs = sort { ($a->[0] cmp $b->[0]) or
239                        ($a->[1] cmp $b->[1]) or                        ($a->[1] cmp $b->[1]) or

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3