[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

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

revision 1.98, Thu Aug 24 22:58:34 2006 UTC revision 1.99, Tue Sep 19 21:19:14 2006 UTC
# Line 1541  Line 1541 
1541    
1542  sub reaction_link {  sub reaction_link {
1543      my($reaction) = @_;      my($reaction) = @_;
1544        if ($reaction =~ /^(\*)?(R\d+)/)
     if ($reaction =~ /^R\d+/)  
1545      {      {
1546          return "<a href=\"http://www.genome.ad.jp/dbget-bin/www_bget?rn+$reaction\" target=reaction$$>$reaction</a>";          return "<a href=\"http://www.genome.ad.jp/dbget-bin/www_bget?rn+$2\" target=reaction$$>$reaction</a>";
1547      }      }
1548      return $reaction;      return $reaction;
1549  }  }
1550    
1551    
1552  sub html_for_assignments {  sub html_for_assignments {
1553      my($fig,$user,$peg_sets) = @_;      my($fig,$user,$peg_sets) = @_;
1554      my $i;      my $i;

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3