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.");
|
