[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.14, Wed Apr 13 15:37:30 2005 UTC revision 1.15, Wed Apr 13 16:38:11 2005 UTC
# Line 369  Line 369 
369   my $pegtags=$fig->get_tags('peg');   my $pegtags=$fig->get_tags('peg');
370   foreach my $type (sort {$a cmp $b} keys %$pegtags)   foreach my $type (sort {$a cmp $b} keys %$pegtags)
371   {   {
372     push(@$html, "\nPEGS with tag:  $type  :  ", scalar(@{$pegtags->{$type}}), $cgi->br, "\n");     my @result = grep {$_ =~ /$genome/} @{$pegtags->{$type}};
373       push(@$html, "\nPEGS with tag:  $type  :  ", scalar(@result), $cgi->br, "\n");
374   }   }
375  }  }
376    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3