[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.22, Tue Feb 10 22:33:42 2004 UTC revision 1.23, Wed Mar 17 18:17:34 2004 UTC
# Line 627  Line 627 
627      }      }
628  }  }
629    
630    sub package_subsystems {
631        my($file) = @_;
632        my($ssa);
633    
634        my $fig = new FIG;
635        my @exportable = $fig->all_exportable_subsystems;
636        if ((@exportable > 0) && open(SUB,">$file"))
637        {
638            foreach $ssa (@exportable)
639            {
640                my($spreadsheet,$notes) = $fig->exportable_subsystem($ssa);
641                print SUB join("",@$spreadsheet),join("",@$notes),"########################\n";
642            }
643            close(SUB);
644        }
645    }
646    
647  1  1

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3