[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.3, Tue Sep 27 00:58:27 2005 UTC revision 1.4, Tue Sep 27 13:16:34 2005 UTC
# Line 104  Line 104 
104  sub update_problem {  sub update_problem {
105      my($fig,$cgi,$html,$problem) = @_;      my($fig,$cgi,$html,$problem) = @_;
106    
107        push(@$html,"<br><br><a href=HOPSS.cgi>Back to Summary</a>\n<br><br><br><hr>");
108      &write_problem($cgi,$problem);      &write_problem($cgi,$problem);
109      &update_form($fig,$cgi,$html,$problem);      &update_form($fig,$cgi,$html,$problem);
110      push(@$html,"<br><br><a href=HOPSS.cgi>Back to Summary</a>\n<br><br><br><hr>");      push(@$html,"<br><br><a href=HOPSS.cgi>Back to Summary</a>\n<br><br><br><hr>");
# Line 122  Line 123 
123                    'Unresolved paralogs',                    'Unresolved paralogs',
124                    'other');                    'other');
125    
126        my $time_of_creation = &parameter($cgi,"time_of_creation");
127      my $type        = &parameter($cgi,"type");      my $type        = &parameter($cgi,"type");
128      my $title       = &parameter($cgi,'title');      my $title       = &parameter($cgi,'title');
129      my $subsystem   = &parameter($cgi,'subsystem');      my $subsystem   = &parameter($cgi,'subsystem');
# Line 135  Line 137 
137                  $cgi->hidden(-name => 'request', -value => 'update_problem', -override => 1),                  $cgi->hidden(-name => 'request', -value => 'update_problem', -override => 1),
138                  $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),                  $cgi->hidden(-name => 'subsystem', -value => $subsystem, -override => 1),
139                  $cgi->hidden(-name => 'problem', -value => $problem, -override => 1),                  $cgi->hidden(-name => 'problem', -value => $problem, -override => 1),
140                    $cgi->hidden(-name => 'time_of_creation', -value => $time_of_creation, -override => 1),
141                  $cgi->br,                  $cgi->br,
142                  $cgi->br,                  $cgi->br,
143                  $cgi->br,                  $cgi->br,
# Line 301  Line 304 
304    
305      my @existing = &problems;      my @existing = &problems;
306      my $new_prob = &next_id(\@existing);      my $new_prob = &next_id(\@existing);
307        my $timestamp = time;
308        $cgi->param(-name => 'time_of_creation', -value => $timestamp);
309      &write_problem($cgi,$new_prob);      &write_problem($cgi,$new_prob);
310  }  }
311    
# Line 318  Line 323 
323      open(NEW,">$FIG_Config::data/HOPSS/$new_prob/problem")      open(NEW,">$FIG_Config::data/HOPSS/$new_prob/problem")
324          || die "could not open $FIG_Config::data/HOPSS/$new_prob/problem";          || die "could not open $FIG_Config::data/HOPSS/$new_prob/problem";
325    
326        my $time_of_creation = &parameter($cgi,"time_of_creation");
327      my $type        = &parameter($cgi,'type');      my $type        = &parameter($cgi,'type');
328      my $title       = &parameter($cgi,'title');      my $title       = &parameter($cgi,'title');
329      my $subsystem   = &parameter($cgi,'subsystem');      my $subsystem   = &parameter($cgi,'subsystem');
# Line 329  Line 335 
335    
336      print NEW "ID\n$new_prob\n//\n";      print NEW "ID\n$new_prob\n//\n";
337    
338      print NEW "time_of_creation\n",time,"\n//\n";      print NEW "time_of_creation\n",$time_of_creation,"\n//\n";
339      print NEW "type\n$type\n//\n";      print NEW "type\n$type\n//\n";
340      print NEW "title\n$title\n//\n";      print NEW "title\n$title\n//\n";
341      print NEW "subsystem\n$subsystem\n//\n";      print NEW "subsystem\n$subsystem\n//\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3