[WWcvs] webwork2: Backporting: ability to create a blank problem in a set.

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

Log Message:
-----------
Backporting:  ability to create a blank problem in a set.

Tags:
----
rel-2-1-patches

Modified Files:
--------------
    webwork2/lib/WeBWorK/ContentGenerator/Instructor:
        ProblemSetDetail.pm

Revision Data
-------------
Index: ProblemSetDetail.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm,v
retrieving revision 1.13.2.2
retrieving revision 1.13.2.3
diff -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm -u -r1.13.2.2 -r1.13.2.3
--- lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/ProblemSetDetail.pm
@@ -758,10 +758,9 @@
 		# if the current naming scheme is changed/broken, this could reek havoc
 		# on all kinds of things
 		foreach my $param ($r->param) {
-			$r->param($param, "") if $param =~ /^(set|problem|header)\./;
+			$r->param($param, "") if $param =~ /^(set|problem|header)\./  && $param !~ /displaymode/;
 		}
 	}
-	
 }
 
 # helper method for debugging
@@ -1132,7 +1131,8 @@
 			
 			my $editProblemPage = $urlpath->new(type => 'instructor_problem_editor_withset_withproblem', args => { courseID => $courseID, setID => $setID, problemID => $problemID });
 			my $editProblemLink = $self->systemLink($editProblemPage, params => { make_local_copy => 0 });
-
+            
+            
 			# FIXME: should we have an "act as" type link here when editing for multiple users?		
 			my $viewProblemPage = $urlpath->new(type => 'problem_detail', args => { courseID => $courseID, setID => $setID, problemID => $problemID });
 			my $viewProblemLink = $self->systemLink($viewProblemPage, params => { effectiveUser => ($forOneUser ? $editForUser[0] : $userID)});
@@ -1199,6 +1199,10 @@
 			]));
 		}
 
+  		my $editNewProblemPage = $urlpath->new(type => 'instructor_problem_editor_withset_withproblem', args => { courseID => $courseID, setID => $setID, problemID =>'new_problem'    });
+        my $editNewProblemLink = $self->systemLink($editNewProblemPage, params => { make_local_copy => 1, file_type => 'blank_problem'  });
+          
+# print final lines
 		print CGI::end_table();
 		print CGI::checkbox({
 				  label=> "Force problems to be numbered consecutively from one",
@@ -1207,6 +1211,7 @@
 		  CGI::br();
 		print CGI::input({type=>"submit", name=>"submit_changes", value=>"Save Changes"});
 		print CGI::input({type=>"submit", name=>"handle_numbers", value=>"Reorder problems only"}) . "(Any unsaved changes will be lost.)";
+		print CGI::p( CGI::a({href=>$editNewProblemLink},'Create'). 'a new blank problem');
 		print CGI::p(<<HERE);
 Any time problem numbers are intentionally changed, the problems will
 always be renumbered consecutively, starting from one.  When deleting