[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.8, Mon Dec 5 19:12:11 2005 UTC
# Line 1  Line 1 
1  # -*- perl -*-  # -*- perl -*-
2    #
3    # Copyright (c) 2003-2006 University of Chicago and Fellowship
4    # for Interpretations of Genomes. All Rights Reserved.
5    #
6    # This file is part of the SEED Toolkit.
7    #
8    # The SEED Toolkit is free software. You can redistribute
9    # it and/or modify it under the terms of the SEED Toolkit
10    # Public License.
11    #
12    # You should have received a copy of the SEED Toolkit Public License
13    # along with this program; if not write to the University of Chicago
14    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
15    # Genomes at veronika@thefig.info or download a copy from
16    # http://www.theseed.org/LICENSE.TXT.
17    #
18    
19    
20  use FIG;  use FIG;
21  my $fig = new FIG;  my $fig = new FIG;
# Line 38  Line 55 
55  }  }
56    
57  my $html = [];  my $html = [];
58  push @$html, "<TITLE>HOPSS</TITLE>\n";  push @$html, "<TITLE>HOPS</TITLE>\n";
59    
60  my $request = $cgi->param('request');  my $request = $cgi->param('request');
61    
# Line 46  Line 63 
63  {  {
64      push(@$html,$cgi->br,      push(@$html,$cgi->br,
65                  $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"),
66                  $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,
67                  "<br><br>"                  "<br><br>"
68           );           );
69    
# Line 135  Line 152 
152    
153      push(@$html,$cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),      push(@$html,$cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),
154                  $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),  
155                  $cgi->hidden(-name => 'problem', -value => $problem, -override => 1),                  $cgi->hidden(-name => 'problem', -value => $problem, -override => 1),
156                  $cgi->hidden(-name => 'time_of_creation', -value => $time_of_creation, -override => 1),                  $cgi->hidden(-name => 'time_of_creation', -value => $time_of_creation, -override => 1),
157                  $cgi->br,                  $cgi->br,
# Line 149  Line 165 
165                  $cgi->br,                  $cgi->br,
166                  'Title: ',$cgi->textfield(-name => 'title', -default => $title, -size=>60),                  'Title: ',$cgi->textfield(-name => 'title', -default => $title, -size=>60),
167                  $cgi->br,                  $cgi->br,
168                  $cgi->br,                  $cgi->br
169                  "Subsystem: $subsystem <br><br>\n",           );
170        if ($subsystem)
171        {
172            my $subsys_link = &subsys_link($cgi,$subsystem);
173            push(@$html,
174                    $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),
175                    "Subsystem: $subsys_link <br><br>\n"
176                 );
177        }
178        else
179        {
180            my @subsystems = sort { uc $a cmp uc $b } $fig->all_subsystems;
181            push(@$html,$cgi->scrolling_list(-name => 'subsystem', -values => \@subsystems, -size => 5));
182        }
183        push(@$html,
184                  $cgi->br,                  $cgi->br,
185                  $cgi->br,                  $cgi->br,
186                  'Your Name: ',$cgi->textfield(-name => 'who', -default => $who, -size=>60),                  'Your Name: ',$cgi->textfield(-name => 'who', -default => $who, -size=>60),
# Line 177  Line 207 
207    
208      foreach $_ (@comments,'')      foreach $_ (@comments,'')
209      {      {
210          push(@$html,"Comment: ",$cgi->br,          push(@$html,"Verification Notes: ",$cgi->br,
211                      $cgi->textarea(-name => 'comment', -rows => 20, -cols => 100, -value => $_, -override => 1),                      $cgi->textarea(-name => 'comment', -rows => 20, -cols => 100, -value => $_, -override => 1),
212                      $cgi->br,                      $cgi->br,
213                      $cgi->br                      $cgi->br
# Line 198  Line 228 
228      my @existing = &problems;      my @existing = &problems;
229      if (@existing > 0)      if (@existing > 0)
230      {      {
231          my $col_hdrs = ['title','subsystem','type','timestamp','who','conjectures','comments'];          my $col_hdrs = ['title','subsystem','type','timestamp','who','conjectures','Verification Notes'];
232          my $tab = [];          my $tab = [];
233    
234          my $problem;          my $problem;
# Line 418  Line 448 
448    
449          my @subsystems = sort { uc $a cmp uc $b } $fig->all_subsystems;          my @subsystems = sort { uc $a cmp uc $b } $fig->all_subsystems;
450    
451          push(@$html,$cgi->h1("Please fill in the relevant fileds"),          push(@$html,$cgi->h1("Please fill in the relevant fields"),
452               $cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),               $cgi->start_form(-action => "HOPSS.cgi", -method => 'post'),
453               $cgi->hidden(-name => 'request', -value => 'add_problem', -override => 1),               $cgi->hidden(-name => 'request', -value => 'add_problem', -override => 1),
454               $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.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3