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) ),
|
