[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.23, Wed Mar 17 18:17:34 2004 UTC revision 1.24, Tue Mar 23 23:50:58 2004 UTC
# Line 632  Line 632 
632      my($ssa);      my($ssa);
633    
634      my $fig = new FIG;      my $fig = new FIG;
635      my @exportable = $fig->all_exportable_subsystems;      my @exchangable = $fig->all_exchangable_subsystems;
636      if ((@exportable > 0) && open(SUB,">$file"))      if ((@exchangable > 0) && open(SUB,">$file"))
637      {      {
638          foreach $ssa (@exportable)          foreach $ssa (@exchangable)
639          {          {
640              my($spreadsheet,$notes) = $fig->exportable_subsystem($ssa);              my($spreadsheet,$notes) = $fig->exchangable_subsystem($ssa);
641              print SUB join("",@$spreadsheet),join("",@$notes),"########################\n";              print SUB join("",@$spreadsheet),join("",@$notes),"########################\n";
642          }          }
643          close(SUB);          close(SUB);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3