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
|
