[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.48, Fri Jun 17 18:41:48 2005 UTC revision 1.49, Fri Jul 29 22:39:49 2005 UTC
# Line 1098  Line 1098 
1098  # //  # //
1099  # notes  # notes
1100  # //  # //
1101    # reactions
1102  #  #
1103  # Subsections:  # Subsections:
1104  #  #
# Line 1257  Line 1258 
1258          $self->{notes_txt} .= $_;          $self->{notes_txt} .= $_;
1259      }      }
1260    
1261        #
1262        # Anything left here is reaction data.
1263        #
1264    
1265        my $reactions;
1266    
1267        while (<$fh>)
1268        {
1269            last if m,^//,;
1270    
1271            if (/^([^\t]+)\t([^\t]+)/)
1272            {
1273                $reactions .= $_;
1274            }
1275        }
1276    
1277        $self->{reactions} = $reactions if $reactions ne "";
1278    
1279    
1280  }  }
1281    
1282  #  #
# Line 1673  Line 1693 
1693      close($fh);      close($fh);
1694      chmod(0666, "$sub_dir/notes");      chmod(0666, "$sub_dir/notes");
1695    
1696        if ($self->{reactions})
1697        {
1698            open($fh, ">$sub_dir/reactions") or die "Cannot open $sub_dir/reactions for writing: $!";
1699            print $fh $self->{reactions} . "\n";
1700            close($fh);
1701            chmod(0666, "$sub_dir/reactions");
1702        }
1703    
1704      my $tran_peg = $self->ensure_peg_translations();      my $tran_peg = $self->ensure_peg_translations();
1705    
1706      #      #

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3