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

Diff of /FigWebServices/index.cgi

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

revision 1.56, Wed Jan 26 19:58:00 2005 UTC revision 1.57, Wed Jan 26 23:46:20 2005 UTC
# Line 1138  Line 1138 
1138    
1139              foreach $from_func (@funcs)              foreach $from_func (@funcs)
1140              {              {
1141                    my $from_funcQ = quotemeta $from_func;
1142    
1143                  foreach $peg ($fig->seqs_with_role($from_func))                  foreach $peg ($fig->seqs_with_role($from_func))
1144                  {                  {
1145                      if ($peg =~ /^fig\|/)                      if ($peg =~ /^fig\|/)
# Line 1147  Line 1149 
1149                          {                          {
1150                              print TMP "$peg\t$to_func\n";                              print TMP "$peg\t$to_func\n";
1151                          }                          }
1152                            elsif (($func =~ /^$from_funcQ\s+\/\s+(\S.*\S)\s*$/) || ($func =~ /^$from_funcQ\s*;\s+(\S.*\S)\s*$/))
1153                            {
1154                                print TMP "$peg\t$to_func / $1\n";
1155                            }
1156                            elsif (($func =~ /^\s*(\S.*\S)\s+\/\s+$from_funcQ\s*$/) || ($func =~ /^\s*(\S.*\S)\s*;\s+$from_funcQ\s*$/))
1157                            {
1158                                print TMP "$peg\t$1 / $to_func\n";
1159                            }
1160                      }                      }
1161                  }                  }
1162              }              }

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3