[WWcvs] webwork2: HEAD backport: Fixed small bug in the message passing facility

[Sam H. v. a. <we...@ma...>]

Log Message:
-----------
HEAD backport: Fixed small bug in the message passing facility
Changed message passing when there is a duplicate administrator. (gage)

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

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.31
retrieving revision 1.31.2.1
diff -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -u -r1.31 -r1.31.2.1
--- lib/WeBWorK/ContentGenerator/CourseAdmin.pm
+++ lib/WeBWorK/ContentGenerator/CourseAdmin.pm
@@ -57,6 +57,10 @@
 		return;
 	}
 	
+	# get result and send to message
+	my $status_message = $r->param("status_message");
+	$self->addmessage(CGI::p("$status_message")) if $status_message;
+
 	## if the user is asking for the downloaded database...
 	#if (defined $r->param("download_exported_database")) {
 	#	my $courseID = $r->param("export_courseID");
@@ -652,7 +656,7 @@
 	if ($add_admin_users ne "") {
 		foreach my $userID ($db->listUsers) {
 			if ($userID eq $add_initial_userID) {
-				warn "User '$userID' will not be copied from admin course as it is the initial instructor.";
+				$self->addbadmessage( "User '$userID' will not be copied from admin course as it is the initial instructor.");
 				next;
 			}
 			my $User            = $db->getUser($userID);