[Bio] / FigKernelPackages / PinnedRegions.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/PinnedRegions.pm

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

revision 1.16, Thu Feb 5 15:43:22 2009 UTC revision 1.17, Thu Feb 12 13:50:32 2009 UTC
# Line 48  Line 48 
48      &add_functional_coupling($fig, $pin_desc, $regions, $feature_data);      &add_functional_coupling($fig, $pin_desc, $regions, $feature_data);
49    
50  #    &add_figfams($fig, $feature_data);  #    &add_figfams($fig, $feature_data);
51      &add_subsystem_data($fig, $pin_desc, $feature_data);      &add_subsystem_data($fig, $pin_desc, $feature_data, $extended);
52    
53      Trace("Coloring pegs.") if T(3);      Trace("Coloring pegs.") if T(3);
54      # Assign a set number to some PEGs through transitive closure based on similarity, from blast scores      # Assign a set number to some PEGs through transitive closure based on similarity, from blast scores
# Line 560  Line 560 
560  }  }
561    
562  sub add_subsystem_data {  sub add_subsystem_data {
563      my($fig, $pin_desc, $feature_data) = @_;      my($fig, $pin_desc, $feature_data, $extended) = @_;
564    
565      # Get subsystem_information for =all= pegs      # Get subsystem_information for =all= pegs
566    
# Line 572  Line 572 
572              push(@subsystems, [ $entry->[0], $entry->[1], $entry->[2], $p ]);              push(@subsystems, [ $entry->[0], $entry->[1], $entry->[2], $p ]);
573          }          }
574      }      }
575        unless ($extended) {
576      @subsystems = grep { $fig->usable_subsystem($_->[0],1) } @subsystems;      @subsystems = grep { $fig->usable_subsystem($_->[0],1) } @subsystems;
577        }
578    
579      my %peg_to_ss;      my %peg_to_ss;
580      foreach my $rec ( @subsystems ) {      foreach my $rec ( @subsystems ) {

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3