[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.80, Tue Jan 24 23:09:39 2006 UTC revision 1.81, Tue Jan 24 23:51:22 2006 UTC
# Line 1173  Line 1173 
1173      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1174      my($cgi,$tigr) = @_;      my($cgi,$tigr) = @_;
1175    
1176      if ($tigr =~ /^tigr\|([0-9a-zA-Z]+)$/)      if ($tigr =~ /^tigr\|(NT|ntbp|ntbpA|BA|BMAA|BXB|GBA)([0-9a-zA-Z]+)$/)
1177      {      {
1178          return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$1\">$tigr</a>";          my $id=$1.$2;
1179            return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$id\">$tigr</a> (Pathema)";
1180        }
1181        elsif ($tigr =~ /^tigr\|([0-9a-zA-Z]+)$/)
1182        {
1183            return "<a href=\"http://www.tigr.org/tigr-scripts/CMR2/GenePage.spl?locus=$1\">$?tigr</a>";
1184      }      }
1185      return $tigr;      return $tigr;
1186  }  }

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3