[WWcvs] webwork-modperl: Create the [HTML_TMP]/hardcopy directory if it doesn't

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Create the [HTML_TMP]/hardcopy directory if it doesn't exist.  This is something of 
a hack done in Hardcopy.pm at the moment.  I think this should be moved over
to makeTempDirectory in Utils, but that would require more checking than I can
do right at the moment.

-- Mike

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator:
        Hardcopy.pm

Revision Data
-------------
Index: Hardcopy.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Hardcopy.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -Llib/WeBWorK/ContentGenerator/Hardcopy.pm -Llib/WeBWorK/ContentGenerator/Hardcopy.pm -u -r1.72 -r1.73
--- lib/WeBWorK/ContentGenerator/Hardcopy.pm
+++ lib/WeBWorK/ContentGenerator/Hardcopy.pm
@@ -417,7 +417,13 @@
 	my $eUserID = $r->param("effectiveUser");
 	
 	# we want to make the temp directory web-accessible, for error reporting
-	my $temp_dir_parent_path = $ce->{courseDirs}{html_temp} . "/hardcopy"; # makeTempDirectory will ensure that .../hardcopy exists
+	my $temp_dir_parent_path = $ce->{courseDirs}{html_temp} . "/hardcopy"; 
+	#FIXME
+	#  ensure that .../hardcopy exists
+	unless (-w $temp_dir_parent_path) {
+		mkdir "$temp_dir_parent_path"
+			or die "Failed to create course directory $temp_dir_parent_path: $!\n";
+	}
 	my $temp_dir_path = eval { makeTempDirectory($temp_dir_parent_path, "work") };
 	if ($@) {
 		$self->add_errors(CGI::escapeHTML($@));