[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.111, Mon Jan 22 19:57:19 2007 UTC revision 1.112, Thu Mar 1 12:49:13 2007 UTC
# Line 1074  Line 1074 
1074          $after = $3;          $after = $3;
1075          return &set_prot_links($cgi,$before) . &HTML::gi_link($cgi,$match) . &set_prot_links($cgi,$after);          return &set_prot_links($cgi,$before) . &HTML::gi_link($cgi,$match) . &set_prot_links($cgi,$after);
1076      }      }
1077        elsif ($x =~ /^(.*)(img\|\d+)(.*)/s)
1078        {
1079            $before = $1;
1080            $match = $2;
1081            $after = $3;
1082            return &set_prot_links($cgi,$before) . &HTML::img_link($cgi,$match) . &set_prot_links($cgi,$after);
1083        }
1084      elsif ($x =~ /^(.*)(tigr\|\w+)(.*)/s)      elsif ($x =~ /^(.*)(tigr\|\w+)(.*)/s)
1085      {      {
1086          $before = $1;          $before = $1;
# Line 1402  Line 1409 
1409      return $kegg;      return $kegg;
1410  }  }
1411    
1412    sub img_link {
1413        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1414        my($cgi,$img) = @_;
1415    
1416        if ($img =~ /^img\|(\S+)$/)
1417        {
1418            return "<a href='http://img.jgi.doe.gov/cgi-bin/pub/main.cgi?page=geneDetail&gene_oid=$1' target=_blank>$img</a>";
1419        }
1420        return $img;
1421    }
1422    
1423  sub ensembl_link {  sub ensembl_link {
1424      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1425      my($cgi,$ensembl) = @_;      my($cgi,$ensembl) = @_;

Legend:
Removed from v.1.111  
changed lines
  Added in v.1.112

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3