[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

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

revision 1.99, Sat Jul 30 12:09:22 2005 UTC revision 1.100, Sat Jul 30 13:02:32 2005 UTC
# Line 495  Line 495 
495      else      else
496      {      {
497          my @roles = $subsystem->get_roles;          my @roles = $subsystem->get_roles;
         my $reactions = $subsystem->get_reactions;  
498          my($rparm,$vparm);          my($rparm,$vparm);
499          foreach $rparm (grep { $_ =~ /^react\d+/ } $cgi->param)          foreach $rparm (grep { $_ =~ /^react\d+/ } $cgi->param)
500          {          {
501              if ($vparm = $cgi->param($rparm))              if ($vparm = $cgi->param($rparm))
502              {              {
503                    $vparm =~ s/ //g;
504                  $rparm =~ /^react(\d+)/;                  $rparm =~ /^react(\d+)/;
505                  my $roleN  = $1 - 1;                  my $roleN  = $1 - 1;
506                  $reactions->{$roles[$roleN]} = [split(",",$vparm)];                  $subsystem->set_reaction($roles[$roleN],$vparm);
507              }              }
508          }          }
509    

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3