[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.6, Fri Sep 30 20:14:43 2005 UTC
# Line 38  Line 38 
38  }  }
39    
40  my $html = [];  my $html = [];
41  push @$html, "<TITLE>HOPSS</TITLE>\n";  push @$html, "<TITLE>HOPS</TITLE>\n";
42    
43  my $request = $cgi->param('request');  my $request = $cgi->param('request');
44    
# Line 46  Line 46 
46  {  {
47      push(@$html,$cgi->br,      push(@$html,$cgi->br,
48                  $cgi->h2("A Public Depository of Open Problems and Conjectures Identified by SubSystem analysis"),                  $cgi->h2("A Public Depository of Open Problems and Conjectures Identified by SubSystem analysis"),
49                  $cgi->h2("About <a href=Html/about_HOPSS.html target=help>HOPSS</a> database"),$cgi->br,                  $cgi->h2("About <a href=Html/about_HOPSS.html target=help>HOPS</a> database"),$cgi->br,
50                  "<br><br>"                  "<br><br>"
51           );           );
52    
# 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            my $subsys_link = &subsys_link($cgi,$subsystem);
156            push(@$html,
157                    $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),
158                    "Subsystem: $subsys_link <br><br>\n"
159                 );
160        }
161        else
162        {
163            my @subsystems = sort { uc $a cmp uc $b } $fig->all_subsystems;
164            push(@$html,$cgi->scrolling_list(-name => 'subsystem', -values => \@subsystems, -size => 5));
165        }
166        push(@$html,
167                  $cgi->br,                  $cgi->br,
168                  $cgi->br,                  $cgi->br,
169                  'Your Name: ',$cgi->textfield(-name => 'who', -default => $who, -size=>60),                  'Your Name: ',$cgi->textfield(-name => 'who', -default => $who, -size=>60),
# Line 177  Line 190 
190    
191      foreach $_ (@comments,'')      foreach $_ (@comments,'')
192      {      {
193          push(@$html,"Comment: ",$cgi->br,          push(@$html,"Verification Notes: ",$cgi->br,
194                      $cgi->textarea(-name => 'comment', -rows => 20, -cols => 100, -value => $_, -override => 1),                      $cgi->textarea(-name => 'comment', -rows => 20, -cols => 100, -value => $_, -override => 1),
195                      $cgi->br,                      $cgi->br,
196                      $cgi->br                      $cgi->br
# Line 418  Line 431 
431    
432          my @subsystems = sort { uc $a cmp uc $b } $fig->all_subsystems;          my @subsystems = sort { uc $a cmp uc $b } $fig->all_subsystems;
433    
434          push(@$html,$cgi->h1("Please fill in the relevant fileds"),          push(@$html,$cgi->h1("Please fill in the relevant fields"),
435               $cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),               $cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),
436               $cgi->hidden(-name => 'request', -value => 'add_problem', -override => 1),               $cgi->hidden(-name => 'request', -value => 'add_problem', -override => 1),
437               $cgi->scrolling_list(-name => 'type', -values => \@types, -size => 5),               $cgi->scrolling_list(-name => 'type', -values => \@types, -size => 5),

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3