[WWcvs] webwork-modperl: Fixed an error where files of type

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

Log Message:
-----------
Fixed an error where files of type 'source_path_for_problem_file' were
not redirected in the save_handler

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

Revision Data
-------------
Index: PGProblemEditor.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm,v
retrieving revision 1.59
retrieving revision 1.60
diff -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -Llib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm -u -r1.59 -r1.60
--- lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm
@@ -1185,6 +1185,22 @@
 				status_message     => uri_escape($self->{status_message})
 			}
 		);
+	} elsif ($file_type eq 'source_path_for_problem_file') {  # redirect to ProblemSets.pm
+		my $problemPage = $self->r->urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::PGProblemEditor",
+		courseID => $courseName, setID => $setName, problemID => $problemNumber
+		);
+		my $viewURL = $self->systemLink($problemPage, 
+			 params=>{
+			    displayMode        => $displayMode,
+				problemSeed        => $problemSeed,
+				editMode           => "savedFile",
+				edit_level         => 0,
+				sourceFilePath     => $outputFilePath, #The path relative to the templates directory is required.
+				file_type          => 'source_path_for_problem_file',
+				status_message     => uri_escape($self->{status_message})
+
+			 }
+	);
 
 	} else {
 		die "I don't know how to redirect this file type $file_type ";
@@ -1314,7 +1330,9 @@
 	my $editFilePath    = $self->{editFilePath}; # path to the permanent file to be edited
 	return "" unless -e $editFilePath;
 	return "" if -w $editFilePath;
-	return "" unless $self->{file_type} eq 'problem'  or $self->{file_type} eq 'set_header' ;
+	return "" unless $self->{file_type} eq 'problem'  
+	                 or $self->{file_type} eq 'set_header' ;
+	                 #  or $self->{file_type} eq 'source_path_for_problem_file'; # need setID and problemID to make local copy
 	return join ("",
 		"Make local copy at: [TMPL]/".determineLocalFilePath($editFilePath),
 		CGI::hidden(-name=>'action.make_local_copy.target_file', -value=>determineLocalFilePath($editFilePath) ),