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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.120, Sun Dec 9 21:08:22 2007 UTC revision 1.121, Mon Feb 11 19:13:06 2008 UTC
# Line 1538  Line 1538 
1538          {          {
1539              print $fh "$notes_separator\n";              print $fh "$notes_separator\n";
1540              print $fh uc($section) . "\n";              print $fh uc($section) . "\n";
1541              print $fh $self->{$section};              my $textsection = $self->{ $section };
1542                chomp $textsection;
1543                print $fh $textsection."\n";
1544          }          }
1545          for my $osection (keys %{$self->{other_sections}})          for my $osection (keys %{$self->{other_sections}})
1546          {          {
1547              print $fh "$notes_separator\n";              print $fh "$notes_separator\n";
1548              print $fh uc($osection) . "\n";              print $fh uc($osection) . "\n";
1549              print $fh $self->{other_sections}->{$osection};              my $textosection = $self->{other_sections}->{$osection};
1550                chomp $textosection;
1551                print $fh $textosection."\n";
1552    #           print $fh $self->{other_sections}->{$osection};
1553          }          }
1554          # print $fh "$self->{notes}";          # print $fh "$self->{notes}";
1555    

Legend:
Removed from v.1.120  
changed lines
  Added in v.1.121

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3