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

Diff of /FigWebServices/HOPSS.cgi

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

revision 1.4, Tue Sep 27 13:16:34 2005 UTC revision 1.5, Wed Sep 28 22:22:39 2005 UTC
# Line 135  Line 135 
135    
136      push(@$html,$cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),      push(@$html,$cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),
137                  $cgi->hidden(-name => 'request', -value => 'update_problem', -override => 1),                  $cgi->hidden(-name => 'request', -value => 'update_problem', -override => 1),
                 $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),  
138                  $cgi->hidden(-name => 'problem', -value => $problem, -override => 1),                  $cgi->hidden(-name => 'problem', -value => $problem, -override => 1),
139                  $cgi->hidden(-name => 'time_of_creation', -value => $time_of_creation, -override => 1),                  $cgi->hidden(-name => 'time_of_creation', -value => $time_of_creation, -override => 1),
140                  $cgi->br,                  $cgi->br,
# Line 149  Line 148 
148                  $cgi->br,                  $cgi->br,
149                  'Title: ',$cgi->textfield(-name => 'title', -default => $title, -size=>60),                  'Title: ',$cgi->textfield(-name => 'title', -default => $title, -size=>60),
150                  $cgi->br,                  $cgi->br,
151                  $cgi->br,                  $cgi->br
152                  "Subsystem: $subsystem <br><br>\n",           );
153        if ($subsystem)
154        {
155            push(@$html,
156                    $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),
157                    "Subsystem: $subsystem <br><br>\n"
158                 );
159        }
160        else
161        {
162            my @subsystems = sort { uc $a cmp uc $b } $fig->all_subsystems;
163            push(@$html,$cgi->scrolling_list(-name => 'subsystem', -values => \@subsystems, -size => 5));
164        }
165        push(@$html,
166                  $cgi->br,                  $cgi->br,
167                  $cgi->br,                  $cgi->br,
168                  'Your Name: ',$cgi->textfield(-name => 'who', -default => $who, -size=>60),                  'Your Name: ',$cgi->textfield(-name => 'who', -default => $who, -size=>60),

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3