[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.120, Tue Mar 11 21:23:31 2008 UTC revision 1.121, Thu Mar 13 20:10:57 2008 UTC
# Line 1066  Line 1066 
1066    if ($type eq "SEED") { # 1    if ($type eq "SEED") { # 1
1067      return "http://seed-viewer.theseed.org/linkin.cgi?id=$id";      return "http://seed-viewer.theseed.org/linkin.cgi?id=$id";
1068    }    }
1069      elsif ($type eq "UniProt") {
1070        return "http://www.uniprot.org/entry/$id";
1071      }
1072    elsif ($type eq "UniProt_ac") { # 2    elsif ($type eq "UniProt_ac") { # 2
1073      return "http://www.uniprot.org/entry/$id";      return "http://www.uniprot.org/entry/$id";
1074    }    }
# Line 1081  Line 1084 
1084    elsif ($type eq "GIID") { # 6    elsif ($type eq "GIID") { # 6
1085      return "http://www.ncbi.nlm.nih.gov/entrez/viewer.fcgi?db=protein&id=$id";      return "http://www.ncbi.nlm.nih.gov/entrez/viewer.fcgi?db=protein&id=$id";
1086    }    }
1087      elsif ($type eq "NCBI") {
1088        return "http://www.ncbi.nlm.nih.gov/entrez/viewer.fcgi?db=protein&id=$id";
1089      }
1090    elsif ($type eq "PDB") { # 7    elsif ($type eq "PDB") { # 7
1091      $id =~ s/\:\w//;      $id =~ s/\:\w//;
1092      return "http://www.rcsb.org/pdb/explore/explore.do?structureId=$id";      return "http://www.rcsb.org/pdb/explore/explore.do?structureId=$id";
# Line 1134  Line 1140 
1140      $id =~ s/\.\d//;      $id =~ s/\.\d//;
1141      return "http://srs.ebi.ac.uk/srsbin/cgi-bin/wgetz?-e+[{EMBL}-ProteinID:".$id."]";      return "http://srs.ebi.ac.uk/srsbin/cgi-bin/wgetz?-e+[{EMBL}-ProteinID:".$id."]";
1142    }    }
1143      elsif ($type eq "CMR") { # 24
1144        if ($id =~ s/^\d+$//) {
1145          return "http://cmr.jcvi.org/cgi-bin/CMR/shared/GenePage.cgi?type=PID&acc=".$id;
1146        } else {
1147          return "http://cmr.jcvi.org/tigr-scripts/CMR/shared/GenePage.cgi?locus=".$id;
1148        }
1149      }
1150    
1151    return undef;    return undef;
1152  }  }

Legend:
Removed from v.1.120  
changed lines
  Added in v.1.121

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3