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

Diff of /FigWebServices/subsys.cgi

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

revision 1.100, Sat Jul 30 13:02:32 2005 UTC revision 1.101, Sat Jul 30 13:11:13 2005 UTC
# Line 1207  Line 1207 
1207      }      }
1208  }  }
1209    
 sub reaction_link {  
     my($reaction) = @_;  
   
     if ($reaction =~ /^R\d+/)  
     {  
         return "<a href=\"http://www.genome.ad.jp/dbget-bin/www_bget?rn+$reaction\">$reaction</a>";  
     }  
     return $reaction;  
 }  
   
1210  sub format_role {  sub format_role {
1211      my($fig,$cgi,$html,$subsystem,$tab,$n,$role,$can_alter,$reactions) = @_;      my($fig,$cgi,$html,$subsystem,$tab,$n,$role,$can_alter,$reactions) = @_;
1212      my($abbrev,$reactT);      my($abbrev,$reactT);
1213    
1214      my $react = $reactions ? join(",", map { &reaction_link($_) } @{$reactions->{$role}}) : "";      my $react = $reactions ? join(",", map { &HTML::reaction_link($_) } @{$reactions->{$role}}) : "";
1215    
1216      $abbrev = $role ? $subsystem->get_role_abbr($subsystem->get_role_index($role)) : "";      $abbrev = $role ? $subsystem->get_role_abbr($subsystem->get_role_index($role)) : "";
1217    

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3