[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.5, Wed Sep 28 22:22:39 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 152  Line 152 
152           );           );
153      if ($subsystem)      if ($subsystem)
154      {      {
155            my $subsys_link = &subsys_link($cgi,$subsystem);
156          push(@$html,          push(@$html,
157                  $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),                  $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),
158                  "Subsystem: $subsystem <br><br>\n"                  "Subsystem: $subsys_link <br><br>\n"
159               );               );
160      }      }
161      else      else
# Line 189  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 430  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.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3