[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.3, Fri Feb 4 06:59:46 2005 UTC revision 1.4, Tue Feb 8 00:42:36 2005 UTC
# Line 68  Line 68 
68    my $pirlink=$cgi->param('pirsf');    my $pirlink=$cgi->param('pirsf');
69    $pirlink =~ /^PIR(SF\d+)/;    $pirlink =~ /^PIR(SF\d+)/;
70    $pirlink="<a href='http://pir.georgetown.edu/sfcs-cgi/new/pirclassif.pl?id=$1'>PIR$1</a>" . $pirid->{$cgi->param('pirsf')};    $pirlink="<a href='http://pir.georgetown.edu/sfcs-cgi/new/pirclassif.pl?id=$1'>PIR$1</a>" . $pirid->{$cgi->param('pirsf')};
71      next if ($cgi->param("ssonly") && !(scalar @sslinks));
72    push (@$tab, [$pirlink, $fig->genus_species($fig->genome_of($peg)), &HTML::fid_link($cgi, $peg, 1), (scalar $fig->function_of($peg)), (join ", ", @sslinks)]);    push (@$tab, [$pirlink, $fig->genus_species($fig->genome_of($peg)), &HTML::fid_link($cgi, $peg, 1), (scalar $fig->function_of($peg)), (join ", ", @sslinks)]);
73   }   }
74   push(@$html,&HTML::make_table($col_hdrs,$tab,"Correspondance between SEED and PIR"));   push(@$html,&HTML::make_table($col_hdrs,$tab,"Correspondance between SEED and PIR"));

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3