[WWcvs] webwork-modperl: Fixed minor glitch where the toggle for show saved

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

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(