[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.113, Thu May 10 19:23:26 2007 UTC revision 1.114, Tue May 15 21:12:18 2007 UTC
# Line 1654  Line 1654 
1654      return $retVal;      return $retVal;
1655  }  }
1656    
1657    sub reaction_map_link {
1658        my($mapID, @reaction_list) = @_;
1659        if($mapID =~ /\d+/)
1660        {
1661            my $reactions = join "+", @reaction_list;
1662            if ($reactions ne "")
1663            {
1664                $reactions = "+".$reactions;
1665            }
1666    
1667            return "<a href=http://www.genome.jp/dbget-bin/show_pathway?rn$mapID$reactions>$mapID</a>";
1668        }
1669        else
1670        {
1671            return $mapID;
1672        }
1673    }
1674    
1675    sub compound_link {
1676        my($compound) = @_;
1677        if($compound =~ /^C\d+/)
1678        {
1679            return "<a href=\"javascript:void(0)\"onclick=\"window.open('http://www.genome.jp/dbget-bin/www_bget?compound+$compound','$&','height=640,width=800,scrollbars=yes,toolbar=yes,status=yes')\">$compound</a>";
1680        }
1681        else
1682        {
1683            return $compound;
1684        }
1685    }
1686    
1687    
1688  sub reaction_link {  sub reaction_link {
1689      my($reaction) = @_;      my($reaction) = @_;
1690      if ($reaction =~ /^(\*)?(R\d+)/)      if ($reaction =~ /^(\*)?(R\d+)/)
1691      {      {
1692          return "<a href=\"http://www.genome.ad.jp/dbget-bin/www_bget?rn+$2\" target=reaction$$>$reaction</a>";          # return "<a href=\"http://www.genome.ad.jp/dbget-bin/www_bget?rn+$2\" target=reaction$$>$reaction</a>";
1693            return "<a href=\"javascript:void(0)\"onclick=\"window.open('http://www.genome.ad.jp/dbget-bin/www_bget?rn+$reaction','$&','height=640,width=800,scrollbars=yes,toolbar=yes,status=yes')\">$reaction</a>";
1694      }      }
1695      return $reaction;      return $reaction;
1696  }  }

Legend:
Removed from v.1.113  
changed lines
  Added in v.1.114

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3