[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.13, Tue Jun 8 21:32:56 2004 UTC revision 1.14, Sat Jun 26 14:27:01 2004 UTC
# Line 507  Line 507 
507          $after = $3;          $after = $3;
508          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);
509      }      }
510        elsif ($x =~  /^(.*)(uni\|[A-Z0-9]{6})(.*)/s)
511        {
512            $before = $1;
513            $match = $2;
514            $after = $3;
515            return &set_prot_links($cgi,$before) . &HTML::uni_link($cgi,$match) . &set_prot_links($cgi,$after);
516        }
517      elsif ($x =~ /^(.*)(sp\|[A-Z0-9]{6})(.*)/s)      elsif ($x =~ /^(.*)(sp\|[A-Z0-9]{6})(.*)/s)
518      {      {
519          $before = $1;          $before = $1;
# Line 541  Line 548 
548      return $gi;      return $gi;
549  }  }
550    
551    sub uni_link {
552        my($cgi,$uni) = @_;
553    
554        if ($uni =~ /^uni\|(\S+)$/)
555        {
556            return "<a href=http://www.pir.uniprot.org/cgi-bin/upEntry?id=$1>$uni</a>";
557        }
558        return $uni;
559    }
560    
561  sub sp_link {  sub sp_link {
562      my($cgi,$sp) = @_;      my($cgi,$sp) = @_;
563    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3