[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.127, Wed Jul 16 22:12:00 2008 UTC revision 1.128, Thu Jul 17 19:33:19 2008 UTC
# Line 1437  Line 1437 
1437      return $id;      return $id;
1438  }  }
1439    
 sub trembl_link {  
     shift if UNIVERSAL::isa($_[0],__PACKAGE__);  
     my($cgi,$id) = @_;  
   
     if ($id =~ /^tr\|(.*)/) {  
       return "<a href='http://ca.expasy.org/uniprot/$1' target=_blank>$id</a>";  
     } else {  
       return "invalid call to trembl link";  
     }  
 }  
   
1440  sub refseq_link {  sub refseq_link {
1441      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1442      my($cgi,$id) = @_;      my($cgi,$id) = @_;
# Line 1546  Line 1535 
1535      return "<a href=\"http://www.vectorbase.org\" target=_blank>$vec</a>";      return "<a href=\"http://www.vectorbase.org\" target=_blank>$vec</a>";
1536  }  }
1537    
1538    sub uniprot_link {
1539        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1540        my($cgi,$uni) = @_;
1541    
1542        if ($uni =~ /^(sp|tr|uni)\|(\S+)$/)
1543        {
1544            return "<a href='" . &HTML::alias_url($2, 'UniProt') . "' target=_blank>$uni</a>";
1545        }
1546        return $uni;
1547    }
1548    
1549  sub uni_link {  sub uni_link {
1550      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
# Line 1554  Line 1553 
1553      if ($uni =~ /^uni\|(\S+)$/)      if ($uni =~ /^uni\|(\S+)$/)
1554      {      {
1555          #return "<a href=http://www.pir.uniprot.org/cgi-bin/upEntry?id=$1>$uni</a>";          #return "<a href=http://www.pir.uniprot.org/cgi-bin/upEntry?id=$1>$uni</a>";
1556          return "<a href='http://www.ebi.uniprot.org/uniprot-srv/uniProtView.do?proteinAc=$1' target=_blank>$uni</a>";          #return "<a href='http://www.ebi.uniprot.org/uniprot-srv/uniProtView.do?proteinAc=$1' target=_blank>$uni</a>";
1557            return "<a href='" . &HTML::alias_url($1, 'UniProt') . "' target=_blank>$uni</a>";
1558      }      }
1559      return $uni;      return $uni;
1560  }  }
# Line 1565  Line 1565 
1565    
1566      if ($sp =~ /^sp\|(\S+)$/)      if ($sp =~ /^sp\|(\S+)$/)
1567      {      {
1568          return "<a href='http://us.expasy.org/cgi-bin/get-sprot-entry?$1' target=_blank>$sp</a>";          #return "<a href='http://us.expasy.org/cgi-bin/get-sprot-entry?$1' target=_blank>$sp</a>";
1569            return "<a href='" . &HTML::alias_url($1, 'UniProt') . "' target=_blank>$sp</a>";
1570      }      }
1571      return $sp;      return $sp;
1572  }  }
1573    
1574    sub trembl_link {
1575        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1576        my($cgi,$tr) = @_;
1577    
1578        if ($tr =~ /^tr\|(\S+)$/)
1579        {
1580            #return "<a href='http://us.expasy.org/cgi-bin/get-sprot-entry?$1' target=_blank>$tr</a>";
1581            return "<a href='" . &HTML::alias_url($1, 'UniProt') . "' target=_blank>$tr</a>";
1582        }
1583        return $tr;
1584    }
1585    
1586  sub pir_link {  sub pir_link {
1587      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1588      my($cgi,$pir) = @_;      my($cgi,$pir) = @_;

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3