[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.79, Thu Jan 5 18:45:51 2006 UTC revision 1.81, Tue Jan 24 23:51:22 2006 UTC
# Line 995  Line 995 
995          $after = $3;          $after = $3;
996          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);
997      }      }
998        elsif ($x =~ /^(.*)\beric\|\w+\b(.*)/s)
999        {
1000            $before = $1;
1001            $match = $2;
1002            $after = $3;
1003            return &set_prot_links($cgi,$before) . &HTML::eric_link($cgi,$match) . &set_prot_links($cgi,$after);
1004        }
1005    
1006        elsif ($x =~ /^(.*)\bbhb\|.*?\b(.*)/s)
1007        {
1008            $before = $1;
1009            $match = $2;
1010            $after = $3;
1011            return &set_prot_links($cgi,$before) . &HTML::bhb_link($cgi,$match) . &set_prot_links($cgi,$after);
1012        }
1013    
1014        elsif ($x =~ /^(.*)\bapidb\|.*?\..*\b(.*)/s)
1015        {
1016            $before = $1;
1017            $match = $2;
1018            $after = $3;
1019            return &set_prot_links($cgi,$before) . &HTML::apidb_link($cgi,$match) . &set_prot_links($cgi,$after);
1020        }
1021    
1022        elsif ($x =~ /^(.*)\bpatric\|.*?\b(.*)/s)
1023        {
1024            $before = $1;
1025            $match = $2;
1026            $after = $3;
1027            return &set_prot_links($cgi,$before) . &HTML::patric_link($cgi,$match) . &set_prot_links($cgi,$after);
1028        }
1029    
1030        elsif ($x =~ /^(.*)\bvbrc\|.*?\b(.*)/s)
1031        {
1032            $before = $1;
1033            $match = $2;
1034            $after = $3;
1035            return &set_prot_links($cgi,$before) . &HTML::vbrc_link($cgi,$match) . &set_prot_links($cgi,$after);
1036        }
1037    
1038        elsif ($x =~ /^(.*)\bvectorbase\|.*?\b(.*)/s)
1039        {
1040            $before = $1;
1041            $match = $2;
1042            $after = $3;
1043            return &set_prot_links($cgi,$before) . &HTML::vectorbase_link($cgi,$match) . &set_prot_links($cgi,$after);
1044        }
1045      elsif ($x =~  /^(.*)(uni\|[A-Z0-9]{6})(.*)/s)      elsif ($x =~  /^(.*)(uni\|[A-Z0-9]{6})(.*)/s)
1046      {      {
1047          $before = $1;          $before = $1;
# Line 1126  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/CMR/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  }  }
1187    
1188    sub eric_link {
1189        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1190        my($cgi,$eric) = @_;
1191    
1192        if ($eric =~ /^eric\|(\w+)$/)
1193        {
1194            return "<a href=\"https://asap.ahabs.wisc.edu/asap/feature_info.php?FeatureID=$1\">$eric</a>";
1195        }
1196        return $eric;
1197    }
1198    
1199    sub bhb_link {
1200        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1201        my($cgi,$bhb) = @_;
1202    
1203        return "<a href=\"http://www.biohealthbase.org\">$bhb</a>";
1204    }
1205    
1206    sub apidb_link {
1207        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1208        my($cgi,$api) = @_;
1209    
1210        if ($api =~ /apidb\|(.*?)\.(.*)$/)
1211        {
1212            return "<a href=\"http://www.apidb.org/cgi-bin/redirect.cgi?taxon_id=$1&source_id=$2\">$api</a>";
1213        }
1214        return $api;
1215    }
1216    
1217    sub patric_link {
1218        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1219        my($cgi,$patric) = @_;
1220    
1221        if ($patric =~ /patric\|(.*)/)
1222        {
1223            return "<a href=\"https://patric.vbi.vt.edu/software/curationTool/gep/pgiCuration.php?locus_name=$1\">$patric</a>";
1224        }
1225        return $patric;
1226    }
1227    
1228    sub vbrc_link {
1229        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1230        my($cgi,$vbrc) = @_;
1231    
1232        if ($vbrc =~ /vbrc\|(.*)/)
1233        {
1234            return "<a href=\"http://www.biovirus.org/gene_detail.asp?name=$1\">$vbrc</a>";
1235        }
1236        return $vbrc;
1237    }
1238    
1239    sub vectorbase_link {
1240        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1241        my($cgi,$vec) = @_;
1242        return "<a href=\"http://www.vectorbase.org\">$vec</a>";
1243    }
1244    
1245    
1246  sub uni_link {  sub uni_link {
1247      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1248      my($cgi,$uni) = @_;      my($cgi,$uni) = @_;
# Line 1356  Line 1466 
1466      if ($user)      if ($user)
1467      {      {
1468          my $esc_sub = uri_escape( $sub );          my $esc_sub = uri_escape( $sub );
1469            $sub =~ s/\_/ /g;
1470          $sub_link = "<a href=./subsys.cgi?ssa_name=$esc_sub&request=show_ssa&user=$user>$sub</a>";          $sub_link = "<a href=./subsys.cgi?ssa_name=$esc_sub&request=show_ssa&user=$user>$sub</a>";
1471      }      }
1472      else      else

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3