Merge pull request #1492 from paulvojta/main

drgrice1 · web-flow · commit 3732223a7b9a · 2021-08-28T15:42:12.000-05:00
Fix minor perl mistake.
diff --git a/lib/WeBWorK/ContentGenerator/CourseAdmin.pm b/lib/WeBWorK/ContentGenerator/CourseAdmin.pm
@@ -654,7 +654,7 @@ sub add_course_validate {
 		push @errors, $r->maketext("A course with ID [_1] already exists.", $add_courseID);
 	}
 	if ( length($add_courseID) > $ce->{maxCourseIdLength} ) {
-                @errors, $r->maketext("Course ID cannot exceed [_1] characters.", $ce->{maxCourseIdLength});
+                push @errors, $r->maketext("Course ID cannot exceed [_1] characters.", $ce->{maxCourseIdLength});
 	}
 
 	if ($add_initial_userID ne "") {

Original file line number	Diff line number	Diff line change
`@@ -654,7 +654,7 @@ sub add_course_validate {`
`654`	`654`	`push @errors, $r->maketext("A course with ID [_1] already exists.", $add_courseID);`
`655`	`655`	`}`
`656`	`656`	`if ( length($add_courseID) > $ce->{maxCourseIdLength} ) {`
`657`		`- @errors, $r->maketext("Course ID cannot exceed [_1] characters.", $ce->{maxCourseIdLength});`
	`657`	`+ push @errors, $r->maketext("Course ID cannot exceed [_1] characters.", $ce->{maxCourseIdLength});`
`658`	`658`	`}`
`659`	`659`
`660`	`660`	`if ($add_initial_userID ne "") {`