[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.21, Thu Feb 17 23:22:15 2005 UTC revision 1.22, Thu Feb 17 23:24:31 2005 UTC
# Line 360  Line 360 
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('user'),"\t", $cgi->param("ss$i"), "\n";
364    $txt.=$cgi->param('user'),"\t$i\t", $cgi->param("ss$i"), "\n";    $txt.="\n" . $i . "\t" .$cgi->param('user') . "\t".  $cgi->param("ss$i"). "\n";
365   }   }
366   push @$html,  "These were chosen<p><pre>$txt</pre><p>\n";   push @$html,  "These were chosen<p><pre>$txt</pre><p>\n";
367  }  }

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3