[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.11, Tue Oct 12 11:56:23 2004 UTC revision 1.12, Tue Oct 12 13:55:56 2004 UTC
# Line 537  Line 537 
537      }      }
538      else      else
539      {      {
540            my $notes = $cgi->param('notes');
541            if ($notes)
542            {
543                $subsystem->set_notes($notes);
544            }
545    
546          my(@param,$param,$genome,$val);          my(@param,$param,$genome,$val);
547          @param = grep { $_ =~ /^genome\d+\.\d+$/ } $cgi->param;          @param = grep { $_ =~ /^genome\d+\.\d+$/ } $cgi->param;
548          foreach $param (@param)          foreach $param (@param)
# Line 739  Line 745 
745               $cgi->br);               $cgi->br);
746      }      }
747    
748      my $notes = $cgi->param('notes');      my $notes = $subsystem->get_notes();
     if (! $notes)  
     {  
         $notes = $subsystem->get_notes();  
     }  
     else  
     {  
         $subsystem->set_notes($notes);  
     }  
749      push(@$html,$cgi->hr,"NOTES:\n",$cgi->br,$cgi->textarea(-name => 'notes', -rows => 40, -cols => 100, -value => $notes));      push(@$html,$cgi->hr,"NOTES:\n",$cgi->br,$cgi->textarea(-name => 'notes', -rows => 40, -cols => 100, -value => $notes));
750    
751      push(@$html, $cgi->end_form);      push(@$html, $cgi->end_form);

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3