[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.166, Wed Oct 26 18:31:07 2005 UTC revision 1.167, Fri Nov 11 19:55:27 2005 UTC
# Line 2170  Line 2170 
2170    
2171  sub set_ec_and_tc_links {  sub set_ec_and_tc_links {
2172      my($fig_or_sprout,$org,$func) = @_;      my($fig_or_sprout,$org,$func) = @_;
2173        Trace("Incoming functional assignment is \"$func\".") if T(EClink => 4);
2174      if ($func =~ /^(.*)(\d+\.\d+\.\d+\.\d+)(.*)$/) {      if ($func =~ /^(.*)(\d+\.\d+\.\d+\.\d+)(.*)$/) {
2175          my $before = $1;          my $before = $1;
2176          my $ec     = $2;          my $ec     = $2;
2177          my $after  = $3;          my $after  = $3;
2178            Trace("Matched EC case: ID = $ec.") if T(EClink => 4);
2179          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);          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);
2180      }      }
2181      elsif ($func =~ /^(.*)(TC \d+(\.[0-9A-Z]+){3,6})(.*)$/) {      elsif ($func =~ /^(.*)(TC \d+(\.[0-9A-Z]+){3,6})(.*)$/) {
2182          my $before = $1;          my $before = $1;
2183          my $tc     = $2;          my $tc     = $2;
2184          my $after  = $4;          my $after  = $4;
2185            Trace("Matched TC case: ID = $tc.") if T(EClink => 4);
2186          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);          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);
2187      }      }
2188      return $func;      return $func;

Legend:
Removed from v.1.166  
changed lines
  Added in v.1.167

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3