From: Sam H. v. a. <we...@ma...> - 2005-09-27 23:32:44
|
Log Message: ----------- set a default value for hardcopy_format if it's not given. Modified Files: -------------- webwork2/lib/WeBWorK/ContentGenerator: Hardcopy.pm Revision Data ------------- Index: Hardcopy.pm =================================================================== RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Hardcopy.pm,v retrieving revision 1.62 retrieving revision 1.63 diff -Llib/WeBWorK/ContentGenerator/Hardcopy.pm -Llib/WeBWorK/ContentGenerator/Hardcopy.pm -u -r1.62 -r1.63 --- lib/WeBWorK/ContentGenerator/Hardcopy.pm +++ lib/WeBWorK/ContentGenerator/Hardcopy.pm @@ -103,6 +103,9 @@ if ($generate_hardcopy) { my $validation_failed = 0; + # set default format + $hardcopy_format = $HC_DEFAULT_FORMAT unless defined $hardcopy_format; + # make sure format is valid unless (grep { $_ eq $hardcopy_format } keys %HC_FORMATS) { $self->addbadmessage("'$hardcopy_format' is not a valid hardcopy format."); |