[WWcvs] webwork2: updates to make multiple selections work when repairs need to be made.

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

Log Message:
-----------
updates to make multiple selections work when repairs need to be made.

Modified Files:
--------------
    webwork2/lib/WeBWorK/ContentGenerator:
        CourseAdmin.pm

Revision Data
-------------
Index: CourseAdmin.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/CourseAdmin.pm,v
retrieving revision 1.87
retrieving revision 1.88
diff -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -u -r1.87 -r1.88
--- lib/WeBWorK/ContentGenerator/CourseAdmin.pm
+++ lib/WeBWorK/ContentGenerator/CourseAdmin.pm
@@ -1821,13 +1821,12 @@
 	
 	print CGI::h2("archive Course");
 	
-	#my $archive_courseID     = $r->param("archive_courseID")     || "";
 	my $delete_course_flag   = $r->param("delete_course")        || "";
 	
 	my @archive_courseIDs     = $r->param("archive_courseIDs");
 	@archive_courseIDs        = () unless @archive_courseIDs;
-   
-    my $archive_courseID  = shift @archive_courseIDs;
+    my $archive_courseID  = $r->param("archive_courseID"); 
+    $archive_courseID  = $archive_courseIDs[0] unless $archive_courseID;
     
     
 	my $ce2 = new WeBWorK::CourseEnvironment({
@@ -2097,6 +2096,7 @@
 		
 		
 		}
+		shift @archive_courseIDs;  # remove the course which has just been archived.
 		if (@archive_courseIDs) {	    
 			print CGI::start_form(-method=>"POST", -action=>$r->uri);
 			print $self->hidden_authen_fields;