[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.18, Thu Feb 17 23:08:35 2005 UTC revision 1.19, Thu Feb 17 23:14:33 2005 UTC
# Line 357  Line 357 
357    
358  sub save_data {  sub save_data {
359   my $max=$cgi->param('max');   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";   open (OUT, ">>/home/fig/for_annotators/chosen_subsystems.txt") || die "Can't open /home/fig/for_annotators/chosen_subsystems.txt";
361   my $txt;   my $txt;
362   for (my $i=1; $i<=$max; $i++) {   for (my $i=1; $i<=$max; $i++) {
363    print OUT "$i\t", $cgi->param("ss$i"), "\n";    print OUT "$i\t", $cgi->param("ss$i"), "\n";
364    $txt.="$i\t", $cgi->param("ss$i"), "\n";    $txt.=$cgi->param('user'),"\t$i\t", $cgi->param("ss$i"), "\n";
365   }   }
366   push @$html,  $cgi->"These were chosen<p><pre>$txt</pre><p>\n";   push @$html,  $cgi->"These were chosen<p><pre>$txt</pre><p>\n";
367  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3