[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.18, Wed Aug 4 12:30:40 2004 UTC revision 1.19, Sat Aug 7 17:55:16 2004 UTC
# Line 536  Line 536 
536          $after = $3;          $after = $3;
537          return &set_prot_links($cgi,$before) . &HTML::fid_link($cgi,$match) . &set_prot_links($cgi,$after);          return &set_prot_links($cgi,$before) . &HTML::fid_link($cgi,$match) . &set_prot_links($cgi,$after);
538      }      }
539        elsif ($x =~ /^(.*)\b([NXYZA]P_[0-9\.]+)\b(.*)/s)
540        {
541            $before = $1;
542            $match = $2;
543            $after = $3;
544            return &set_prot_links($cgi,$before) . &HTML::refseq_link($cgi,$match) . &set_prot_links($cgi,$after);
545        }
546      elsif ($x =~ /^(.*)(gi\|\d+)(.*)/s)      elsif ($x =~ /^(.*)(gi\|\d+)(.*)/s)
547      {      {
548          $before = $1;          $before = $1;
# Line 574  Line 581 
581      return $x;      return $x;
582  }  }
583    
584    sub refseq_link {
585        my($cgi,$id) = @_;
586    
587        if ($id =~ /^[NXYZA]P_/)
588        {
589            return "<a href=http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=protein&cmd=search&term=$id>$id</a>";
590        }
591    }
592    
593  sub gi_link {  sub gi_link {
594      my($cgi,$gi) = @_;      my($cgi,$gi) = @_;
595    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3