Log Message:
-----------
Fixed minor glitch where the toggle for show saved answers might be set wrong for the first time a student looks at a problem.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK:
ContentGenerator.pm
Revision Data
-------------
Index: ContentGenerator.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator.pm,v
retrieving revision 1.146
retrieving revision 1.147
diff -Llib/WeBWorK/ContentGenerator.pm -Llib/WeBWorK/ContentGenerator.pm -u -r1.146 -r1.147
--- lib/WeBWorK/ContentGenerator.pm
+++ lib/WeBWorK/ContentGenerator.pm
@@ -1334,7 +1334,9 @@
}
if (exists $options_to_show{showOldAnswers}) {
- my $curr_showOldAnswers = $self->r->param("showOldAnswers");
+ # Note, 0 is a legal value, so we can't use || in setting this
+ my $curr_showOldAnswers = defined($self->r->param("showOldAnswers")) ?
+ $self->r->param("showOldAnswers") : $self->r->ce->{pg}->{options}->{showOldAnswers};
$result .= "Show saved answers?";
$result .= CGI::br();
$result .= CGI::radio_group(
|
