[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.88, Fri Feb 3 18:42:27 2006 UTC revision 1.89, Wed Apr 5 18:42:12 2006 UTC
# Line 1094  Line 1094 
1094          $after = $3;          $after = $3;
1095          return &set_prot_links($cgi,$before) . &HTML::mim_link($cgi,$match) . &set_prot_links($cgi,$after);          return &set_prot_links($cgi,$before) . &HTML::mim_link($cgi,$match) . &set_prot_links($cgi,$after);
1096      }      }
1097      elsif ($x =~ /^(.*)(UniGene:[a-zA-Z_0-9\.]+)(.*)/s)      elsif ($x =~ /^(.*)(HGNC:[a-zA-Z_0-9\.]+)(.*)/s)
1098      {      {
1099          $before = $1;          $before = $1;
1100          $match = $2;          $match = $2;
1101          $after = $3;          $after = $3;
1102          return &set_prot_links($cgi,$before) . &HTML::unigene_link($cgi,$match) . &set_prot_links($cgi,$after);          return &set_prot_links($cgi,$before) . &HTML::hgnc_link($cgi,$match) . &set_prot_links($cgi,$after);
1103      }      }
1104      elsif ($x =~ /^(.*)(IPI:[a-zA-Z_0-9\.]+)(.*)/s)      elsif ($x =~ /^(.*)(UniGene:[a-zA-Z_0-9\.]+)(.*)/s)
1105      {      {
1106          $before = $1;          $before = $1;
1107          $match = $2;          $match = $2;
1108          $after = $3;          $after = $3;
1109          return &set_prot_links($cgi,$before) . &HTML::ipi_link($cgi,$match) . &set_prot_links($cgi,$after);          return &set_prot_links($cgi,$before) . &HTML::unigene_link($cgi,$match) . &set_prot_links($cgi,$after);
1110      }      }
1111    # IPI stopped working. turn off for now.
1112    #    elsif ($x =~ /^(.*)(IPI:[a-zA-Z_0-9\.]+)(.*)/s)
1113    #    {
1114    #        $before = $1;
1115    #        $match = $2;
1116    #        $after = $3;
1117    #        return &set_prot_links($cgi,$before) . &HTML::ipi_link($cgi,$match) . &set_prot_links($cgi,$after);
1118    #    }
1119      elsif ($x =~ /^(.*)(WP:[a-zA-Z_0-9\.]+)(.*)/s)      elsif ($x =~ /^(.*)(WP:[a-zA-Z_0-9\.]+)(.*)/s)
1120      {      {
1121          #wormbase          #wormbase
# Line 1298  Line 1306 
1306      {      {
1307          my $what=$1;          my $what=$1;
1308          my $key=$2;          my $key=$2;
1309          my $idx="all";          my $idx="All";
1310          if ($what eq "EnsemblGene") { $idx = "Gene" }          if ($what eq "EnsemblGene") { $idx = "Gene" }
1311          if ($what eq "EnsemblTranscript") { $idx = "all" }          if ($what eq "EnsemblTranscript") { $idx = "All" }
1312          if ($what eq "EnsemblProtein") { $idx = "all" }          if ($what eq "EnsemblProtein") { $idx = "All" }
1313    
1314          #I really want to get right to the transcript and peptide pages, but          #I really want to get right to the transcript and peptide pages, but
1315          #can't see how to do that without knowing the org name too, which          #can't see how to do that without knowing the org name too, which
1316          #I don't know at this point. (ensembl org name, not real org name)          #I don't know at this point. (ensembl org name, not real org name)
1317    
1318          return "<a href=http://www.ensembl.org/Homo_sapiens/textview?species=all&idx=$idx&q=$key>$ensembl</a>";          return "<a href=http://www.ensembl.org/Homo_sapiens/searchview?species=all&idx=$idx&q=$key>$ensembl</a>";
1319      }      }
1320      return $ensembl;      return $ensembl;
1321  }  }
# Line 1334  Line 1342 
1342      return $mim;      return $mim;
1343  }  }
1344    
1345    sub hgnc_link {
1346        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1347        my($cgi,$hgnc) = @_;
1348    
1349        if ($hgnc =~ /^HGNC:(\S+)$/)
1350        {
1351            return "<a href=http://www.gene.ucl.ac.uk/cgi-bin/nomenclature/searchgenes.pl?field=symbol&anchor=equals&match=$1&symbol_search=Search&number=50&format=html&sortby=symbol>$hgnc</a>";
1352        }
1353        return $mim;
1354    }
1355    
1356  sub unigene_link {  sub unigene_link {
1357      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1358      my($cgi,$unigene) = @_;      my($cgi,$unigene) = @_;

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3