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

Diff of /FigKernelScripts/svr_pegs_in_subsystems.pl

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

revision 1.2, Fri Jul 17 19:45:18 2009 UTC revision 1.3, Wed Oct 7 21:04:43 2009 UTC
# Line 16  Line 16 
16    
17  $0 =~ m/([^\/]+)$/;  $0 =~ m/([^\/]+)$/;
18  my $self = $1;  my $self = $1;
19  my $usage = "$self [--noroles --group GenomeF < SubsystemIDs]";  my $usage = "$self [--noroles --group] GenomeF < SubsystemIDs";
20    
21  my $rc = GetOptions("noroles" => \$noroles, "group" => \$group);  my $rc = GetOptions("noroles" => \$noroles, "group" => \$group);
22    
# Line 41  Line 41 
41          push (@subs, $_);          push (@subs, $_);
42  }  }
43    
44  my $pegs_inss = $ss->pegs_in_subsystems(\@genomes, \@subs);  my $pegs_inss = $ss->pegs_in_subsystem(\@genomes, \@subs);
45  if ($roles) {  if ($roles) {
46          foreach my $ss_role (@{$pegs_inss}) { #foreach subsystem/role          foreach my $ss_role (@{$pegs_inss}) { #foreach subsystem/role
47                  #(ss, role, (peg))                  #(ss, role, (peg))

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3