[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.58, Fri Jul 29 19:31:21 2005 UTC revision 1.59, Sat Jul 30 13:02:31 2005 UTC
# Line 477  Line 477 
477          {          {
478              if ($_ =~ /^(\S.*\S)\t(\S+)/)              if ($_ =~ /^(\S.*\S)\t(\S+)/)
479              {              {
480                  push(@{$reactions->{$1}},split(/,/,$2));                  push(@{$reactions->{$1}},split(/,\s*/,$2));
481              }              }
482          }          }
483          close(REACT);          close(REACT);
# Line 753  Line 753 
753      if (-f $reactions_file)      if (-f $reactions_file)
754      {      {
755          rename($reactions_file, $reactions_bak) or warn "rename $reactions_file $reactions_bak failed $!";          rename($reactions_file, $reactions_bak) or warn "rename $reactions_file $reactions_bak failed $!";
756          print STDERR "wrote $reactions_bak\n";  #       print STDERR "wrote $reactions_bak\n";
757      }      }
758    
759      #      #
# Line 859  Line 859 
859      my $ss_diff = abs((-s $ss_file) - (-s $ss_bak));      my $ss_diff = abs((-s $ss_file) - (-s $ss_bak));
860      my $notes_diff = abs((-s $notes_file) - (-s $notes_bak));      my $notes_diff = abs((-s $notes_file) - (-s $notes_bak));
861      my $reactions_diff = (system("cmp -s $reactions_file $reactions_bak") != 0);      my $reactions_diff = (system("cmp -s $reactions_file $reactions_bak") != 0);
862      print STDERR "reactions_file=$reactions_file reactions_bak=$reactions_bak dif=$reactions_diff\n";  #   print STDERR "reactions_file=$reactions_file reactions_bak=$reactions_bak dif=$reactions_diff\n";
863    
864      if (($ss_diff > 10) or ($notes_diff > 10) or $reactions_diff)      if (($ss_diff > 10) or ($notes_diff > 10) or $reactions_diff)
865      {      {
# Line 1957  Line 1957 
1957      return $self->{reactions};      return $self->{reactions};
1958  }  }
1959    
1960    sub set_reaction {
1961        my($self,$role,$rstring) = @_;
1962    
1963        $self->{reactions}->{$role} = [split(/,\s*/,$rstring)];
1964    }
1965    
1966    
1967  sub set_notes  sub set_notes
1968  {  {
1969      my($self, $notes) = @_;      my($self, $notes) = @_;

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3