[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.40, Fri Feb 11 20:33:51 2005 UTC revision 1.41, Sat Feb 12 18:18:14 2005 UTC
# Line 542  Line 542 
542          {          {
543              $subsystem->set_notes($notes);              $subsystem->set_notes($notes);
544          }          }
545            if ($cgi->param('classif1') || $cgi->param('classif2'))
546            {
547             my $class;
548             @$class=($cgi->param('classif1'), $cgi->param('classif2'));
549             $subsystem->set_classification($class);
550            }
551    
552          my(@param,$param,$genome,$val);          my(@param,$param,$genome,$val);
553          @param = grep { $_ =~ /^genome\d+\.\d+$/ } $cgi->param;          @param = grep { $_ =~ /^genome\d+\.\d+$/ } $cgi->param;
# Line 831  Line 837 
837          push(@$html,$cgi->h2('notes'),"<pre width=80>$notes</pre>");          push(@$html,$cgi->h2('notes'),"<pre width=80>$notes</pre>");
838      }      }
839    
840        # RAE Modified to add a line with the classification
841        my $class=$subsystem->get_classification();
842        if ($can_alter)
843        {
844           push(@$html, $cgi->hr, "CLASSIFICATION:\n", $cgi->textfield(-name=>"classif1", -value=>$$class[0], -size=>40),
845            $cgi->textfield(-name=>"classif2", -value=>$$class[1], -size=>40));
846        }
847        elsif ($class)
848        {
849           push (@$html, $cgi->h2('Classification'), "<table><tr><td>$$class[0]</td><td>$$class[1]</td></tr>\n");
850        }
851    
852      push(@$html, $cgi->end_form);      push(@$html, $cgi->end_form);
853    
854      my $target = "align$$";      my $target = "align$$";

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3