[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.115, Fri Aug 24 12:13:15 2007 UTC revision 1.116, Tue Oct 23 03:23:27 2007 UTC
# Line 1088  Line 1088 
1088          $after = $3;          $after = $3;
1089          return &set_prot_links($cgi,$before) . &HTML::tigr_link($cgi,$match) . &set_prot_links($cgi,$after);          return &set_prot_links($cgi,$before) . &HTML::tigr_link($cgi,$match) . &set_prot_links($cgi,$after);
1090      }      }
1091        elsif ($x =~ /^(.*)(tigrcmr\|\w+)(.*)/s)
1092        {
1093            $before = $1;
1094            $match = $2;
1095            $after = $3;
1096            return &set_prot_links($cgi,$before) . &HTML::tigr_link($cgi,$match) . &set_prot_links($cgi,$after);
1097        }
1098      elsif ($x =~ /^(.*)\b(eric\|\S+)\b(.*)/s)      elsif ($x =~ /^(.*)\b(eric\|\S+)\b(.*)/s)
1099      {      {
1100          $before = $1;          $before = $1;
# Line 1299  Line 1306 
1306          my $id=$1.$2;          my $id=$1.$2;
1307          return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$id\" target=_blank>$tigr</a> (Pathema)";          return "<a href=\"http://pathema.tigr.org/tigr-scripts/pathema/shared/GenePage.cgi?locus=$id\" target=_blank>$tigr</a> (Pathema)";
1308      }      }
1309      elsif ($tigr =~ /^tigr\|(\S+)$/)      elsif ($tigr =~ /^tigr(cmr?)\|(\S+)$/)
1310      {      {
1311          return "<a href=\"http://www.tigr.org/tigr-scripts/CMR2/GenePage.spl?locus=$1\" target=_blank>$tigr</a>";          return "<a href=\"http://www.tigr.org/tigr-scripts/CMR2/GenePage.spl?locus=$2\" target=_blank>$tigr</a>";
1312      }      }
1313      return $tigr;      return $tigr;
1314  }  }

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3