[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.11, Mon May 3 17:04:11 2004 UTC revision 1.12, Fri May 14 18:06:51 2004 UTC
# Line 517  Line 517 
517          $after = $3;          $after = $3;
518          return &set_prot_links($cgi,$before) . &HTML::pir_link($cgi,$match) . &set_prot_links($cgi,$after);          return &set_prot_links($cgi,$before) . &HTML::pir_link($cgi,$match) . &set_prot_links($cgi,$after);
519      }      }
520        elsif ($x =~ /^(.*)(kegg\|[a-z]{2,4}:[a-zA-Z_0-9]+)(.*)/s)
521        {
522            $before = $1;
523            $match = $2;
524            $after = $3;
525            return &set_prot_links($cgi,$before) . &HTML::kegg_link($cgi,$match) . &set_prot_links($cgi,$after);
526        }
527      return $x;      return $x;
528  }  }
529    
# Line 550  Line 557 
557      return $pir;      return $pir;
558  }  }
559    
560    sub kegg_link {
561        my($cgi,$kegg) = @_;
562    
563        if ($kegg =~ /^kegg\|([^:]+):(\S+)$/)
564        {
565            return "<a href=http://www.genome.ad.jp/dbget-bin/www_bget?$1+$2>$kegg</a>";
566        }
567        return $kegg;
568    }
569    
570  sub set_map_links {  sub set_map_links {
571      my($cgi,$x) = @_;      my($cgi,$x) = @_;
572      my($before,$match,$after);      my($before,$match,$after);

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3