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

Diff of /FigWebServices/pir.cgi

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

revision 1.12, Sat Feb 12 02:22:01 2005 UTC revision 1.13, Sat Feb 12 02:24:08 2005 UTC
# Line 211  Line 211 
211   foreach my $sf (keys %$pegbypir) {   foreach my $sf (keys %$pegbypir) {
212    my $function; my $ss; my $functionandss;    my $function; my $ss; my $functionandss;
213    foreach my $peg (@{$pegbypir->{$sf}}) {    foreach my $peg (@{$pegbypir->{$sf}}) {
214     my $function=scalar $fig->function_of($peg);     my $fn=scalar $fig->function_of($peg);
215     foreach my $subsys ($fig->subsystems_for_peg($peg)) {$ss->{$$subsys[0]}++}     foreach my $subsys ($fig->subsystems_for_peg($peg)) {$ss->{$$subsys[0]}++}
216     $function->{$function}++;     $function->{$fn}++;
217     $functionandss->{$function}++ if (scalar keys %$ss);     $functionandss->{$fn}++ if (scalar keys %$ss);
218    }    }
219    $subsystems->{$sf}=join "; ", keys %$ss;    $subsystems->{$sf}=join "; ", keys %$ss;
220    $count->{$sf}=scalar keys %$function;    $count->{$sf}=scalar keys %$function;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3