[Bio] / FigKernelScripts / pg_roles_in_some_but_not_X.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/pg_roles_in_some_but_not_X.pl

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

revision 1.2, Wed Feb 27 17:30:38 2013 UTC revision 1.3, Wed Feb 27 17:43:35 2013 UTC
# Line 48  Line 48 
48                          if (! ($seen->{"$func1\t$func2"} || $seen->{"$func2\t$func1"}))                          if (! ($seen->{"$func1\t$func2"} || $seen->{"$func2\t$func1"}))
49                          {                          {
50                              $seen->{"$func1\t$func2"} = 1;                              $seen->{"$func1\t$func2"} = 1;
51                              print $fhO join("\t",($peg,$func1,$peg2,$func2,$role,$subsys)),"\n";                              my @anno_pegs = &get_anno_pegs([$peg,$peg2],$anno,$peg_to_seq,$seq_to_pegs);
52                                print OUT join("\t",($peg,$func1,$peg2,$func2,join(",",@anno_pegs),$role,$subsys)),"\n";
53                          }                          }
54                      }                      }
55                  }                  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3