[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.43, Thu Jun 23 21:24:48 2005 UTC revision 1.44, Tue Jun 28 18:46:43 2005 UTC
# Line 692  Line 692 
692          $after = $3;          $after = $3;
693          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);
694      }      }
695        elsif ($x =~ /^(.*)(tigr\|[0-9a-zA-Z]+)(.*)/s)
696        {
697            $before = $1;
698            $match = $2;
699            $after = $3;
700            return &set_prot_links($cgi,$before) . &HTML::tigr_link($cgi,$match) . &set_prot_links($cgi,$after);
701        }
702      elsif ($x =~  /^(.*)(uni\|[A-Z0-9]{6})(.*)/s)      elsif ($x =~  /^(.*)(uni\|[A-Z0-9]{6})(.*)/s)
703      {      {
704          $before = $1;          $before = $1;
# Line 744  Line 751 
751      return $gi;      return $gi;
752  }  }
753    
754    sub tigr_link {
755        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
756        my($cgi,$tigr) = @_;
757    
758        if ($tigr =~ /^tigr\|([0-9a-zA-Z]+)$/)
759        {
760            return "<a href=\"http://pathema.tigr.org/tigr-scripts/CMR/GenePage.cgi?locus=$tigr\">$tigr</a>";
761        }
762        return $tigr;
763    }
764    
765  sub uni_link {  sub uni_link {
766      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
767      my($cgi,$uni) = @_;      my($cgi,$uni) = @_;

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3