[WWcvs] webwork-modperl: Sam changed open(LOG,...) to open(my $log, ...), but

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Sam changed open(LOG,...) to open(my $log, ...), but didn't change the
usages of LOG to $log, so the show answers page was always reporting
no past answers available.  Now the values are being shown.  (I'm not
sure why it is necessary to make a local variable for LOG, but
at least it works now.)

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        ShowAnswers.pm

Revision Data
-------------
Index: ShowAnswers.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -Llib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm -Llib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm -u -r1.15 -r1.16
--- lib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/ShowAnswers.pm
@@ -106,7 +106,7 @@
 				$self->{lastID}   = '';
 				$self->{lastn}    = 0;
 				
-				my @lines = grep(/$pattern/,<LOG>); close(LOG);
+				my @lines = grep(/$pattern/,<$log>); close($log);
 				chomp(@lines);
 				foreach $line (@lines) {$line = substr($line,27)}; # remove datestamp