[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.82, Wed Jan 25 01:45:33 2006 UTC revision 1.83, Wed Jan 25 02:20:42 2006 UTC
# Line 1178  Line 1178 
1178          my $id=$1.$2;          my $id=$1.$2;
1179          return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$id\">$tigr</a> (Pathema)";          return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$id\">$tigr</a> (Pathema)";
1180      }      }
1181      elsif ($tigr =~ /^tigr\|(\w+)$/)      elsif ($tigr =~ /^tigr\|(\S+)$/)
1182      {      {
1183          return "<a href=\"http://www.tigr.org/tigr-scripts/CMR2/GenePage.spl?locus=$1\">$tigr</a>";          return "<a href=\"http://www.tigr.org/tigr-scripts/CMR2/GenePage.spl?locus=$1\">$tigr</a>";
1184      }      }
# Line 1189  Line 1189 
1189      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1190      my($cgi,$eric) = @_;      my($cgi,$eric) = @_;
1191    
1192      if ($eric =~ /^eric\|(\w+)$/)      if ($eric =~ /^eric\|(\S+)/)
1193      {      {
1194          return "<a href=\"https://asap.ahabs.wisc.edu/asap/feature_info.php?FeatureID=$1\">$eric</a>";          return "<a href=\"https://asap.ahabs.wisc.edu/asap/feature_info.php?FeatureID=$1\">$eric</a>";
1195      }      }

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3