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

Diff of /FigWebServices/subsys_summary.cgi

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

revision 1.17, Sun Feb 13 00:16:27 2005 UTC revision 1.18, Thu Feb 17 23:08:35 2005 UTC
# Line 50  Line 50 
50  {  {
51   summarize_ss();   summarize_ss();
52  }  }
53    elsif ($cgi->param('submit') eq "Save Selections")
54    {
55     save_data();
56    }
57  else  else
58  {  {
59   show_initial();   show_initial();
# Line 349  Line 353 
353                    $cgi->end_form,                    $cgi->end_form,
354    
355  }  }
356    
357    
358    sub save_data {
359     my $max=$cgi->param('max');
360     open (OUT, ">/home/fig/for_annotators/chosen_subsystems.txt") || die "Can't open /home/fig/for_annotators/chosen_subsystems.txt";
361     my $txt;
362     for (my $i=1; $i<=$max; $i++) {
363      print OUT "$i\t", $cgi->param("ss$i"), "\n";
364      $txt.="$i\t", $cgi->param("ss$i"), "\n";
365     }
366     push @$html,  $cgi->"These were chosen<p><pre>$txt</pre><p>\n";
367    }
368    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3