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

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.56, Mon Dec 5 19:06:30 2005 UTC revision 1.57, Fri Jan 13 20:22:39 2006 UTC
# Line 961  Line 961 
961  }  }
962    
963  sub package_subsystems {  sub package_subsystems {
964      my($fig,$file,$just_exchangable) = @_;      my($fig,$file,$just_exchangable,$just_these) = @_;
965      my($ssa);      my($ssa,@exchangable);
966    
967        if (@$just_these > 0)
968        {
969            @exchangable = @$just_these;
970        }
971        else
972        {
973      $just_exchangable = defined($just_exchangable) ? $just_exchangable : 1;      $just_exchangable = defined($just_exchangable) ? $just_exchangable : 1;
974      my @exchangable = grep { (! $just_exchangable) || $fig->is_exchangable_subsystem($_) }          @exchangable = grep { (! $just_exchangable) || $fig->is_exchangable_subsystem($_) }
975                        $fig->all_subsystems;                        $fig->all_subsystems;
976        }
977      my $fig = new FIG;      my $fig = new FIG;
978      if ((@exchangable > 0) && open(SUB,">$file"))      if ((@exchangable > 0) && open(SUB,">$file"))
979      {      {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3