[Bio] / FigWebServices / protein.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/protein.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83, Wed Feb 9 20:43:27 2005 UTC revision 1.84, Mon Feb 21 18:13:43 2005 UTC
# Line 584  Line 584 
584                          &org_of($fig_or_sprout,$id),                          &org_of($fig_or_sprout,$id),
585                          $who ? $who : " ",                          $who ? $who : " ",
586                          ($user ? &assign_link($cgi,$func,$user_func) : " "),                          ($user ? &assign_link($cgi,$func,$user_func) : " "),
587                          &set_map_links($fig_or_sprout,&genome_of($peg),$func)] } @funcs ];                          &set_ec_and_tc_links($fig_or_sprout,&genome_of($peg),$func)] } @funcs ];
588      if (@$tab > 0) {      if (@$tab > 0) {
589          my $col_hdrs = ["Id","Organism","Who","ASSIGN","Assignment"];          my $col_hdrs = ["Id","Organism","Who","ASSIGN","Assignment"];
590          my $title    = "Assignments for Essentially Identical Proteins";          my $title    = "Assignments for Essentially Identical Proteins";
# Line 1575  Line 1575 
1575          } else {          } else {
1576              $comment = "";              $comment = "";
1577          }          }
1578          $comment = &set_map_links($fig_or_sprout,&genome_of($fid1),$comment);          $comment = &set_ec_and_tc_links($fig_or_sprout,&genome_of($fid1),$comment);
1579          if ($fid1 eq $peg) {          if ($fid1 eq $peg) {
1580              $comment = "\@bgcolor=\"#00FF00\":$comment";              $comment = "\@bgcolor=\"#00FF00\":$comment";
1581          }          }
# Line 1660  Line 1660 
1660      return $cluster_link;      return $cluster_link;
1661  }  }
1662    
1663  sub set_map_links {  sub set_ec_and_tc_links {
1664      my($fig_or_sprout,$org,$func) = @_;      my($fig_or_sprout,$org,$func) = @_;
1665    
1666      if ($func =~ /^(.*)(\d+\.\d+\.\d+\.\d+)(.*)$/) {      if ($func =~ /^(.*)(\d+\.\d+\.\d+\.\d+)(.*)$/) {
1667          my $before = $1;          my $before = $1;
1668          my $ec     = $2;          my $ec     = $2;
1669          my $after  = $3;          my $after  = $3;
1670          return &set_map_links($fig_or_sprout,$org,$before) . &set_ec_to_maps($fig_or_sprout,$org,$ec) . &set_map_links($fig_or_sprout,$org,$after);          return &set_ec_and_tc_links($fig_or_sprout,$org,$before) . &set_ec_to_maps($fig_or_sprout,$org,$ec) . &set_ec_and_tc_links($fig_or_sprout,$org,$after);
1671        }
1672        elsif ($func =~ /^(.*)(TC \d+(\.[0-9A-Z]+){3,6})(.*)$/) {
1673            my $before = $1;
1674            my $tc     = $2;
1675            my $after  = $4;
1676            return &set_ec_and_tc_links($fig_or_sprout,$org,$before) . &set_tc_link($fig_or_sprout,$org,$tc) . &set_ec_and_tc_links($fig_or_sprout,$org,$after);
1677      }      }
1678      return $func;      return $func;
1679  }  }
1680    
1681    sub set_tc_link {
1682        my($fig_or_sprout,$org,$tc) = @_;
1683    
1684        if ($tc =~ /^TC\s+(\S+)$/)
1685        {
1686            return "<a href=http://tcdb.ucsd.edu/tcdb/index.php?tc=$1&Submit=Lookup>$tc</a>";
1687        }
1688        return $tc;
1689    }
1690    
1691    
1692  sub set_ec_to_maps {  sub set_ec_to_maps {
1693      my($fig_or_sprout,$org,$ec) = @_;      my($fig_or_sprout,$org,$ec) = @_;
1694    

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3