[WWcvs] webwork2: changed erorrs to warnings for the time being.

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

Log Message:
-----------
changed erorrs to warnings for the time being.

Modified Files:
--------------
    webwork2/lib/WeBWorK:
        CourseEnvironment.pm

Revision Data
-------------
Index: CourseEnvironment.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/CourseEnvironment.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -Llib/WeBWorK/CourseEnvironment.pm -Llib/WeBWorK/CourseEnvironment.pm -u -r1.30 -r1.31
--- lib/WeBWorK/CourseEnvironment.pm
+++ lib/WeBWorK/CourseEnvironment.pm
@@ -52,7 +52,7 @@
 
 use strict;
 use warnings;
-use Carp qw/croak/;
+use Carp;
 use Safe;
 use WeBWorK::Utils qw(readFile);
 use WeBWorK::Debug;
@@ -253,7 +253,7 @@
 
 sub status_abbrev_to_name {
 	my ($ce, $status_abbrev) = @_;
-	croak "status_abbrev_to_name: status_abbrev (first argument) must be defined and non-empty"
+	carp "status_abbrev_to_name: status_abbrev (first argument) must be defined and non-empty"
 		if not defined $status_abbrev or $status_abbrev eq "";
 	
 	return $ce->{_status_abbrev_to_name}{$status_abbrev};
@@ -268,7 +268,7 @@
 
 sub status_name_to_abbrevs {
 	my ($ce, $status_name) = @_;
-	croak "status_name_to_abbrevs: status_name (first argument) must be defined and non-empty"
+	carp "status_name_to_abbrevs: status_name (first argument) must be defined and non-empty"
 		if not defined $status_name or $status_name eq "";
 	
 	return unless exists $ce->{statuses}{$status_name};
@@ -283,9 +283,9 @@
 
 sub status_has_behavior {
 	my ($ce, $status_name, $behavior) = @_;
-	croak "status_has_behavior: status_name (first argument) must be defined and non-empty"
+	carp "status_has_behavior: status_name (first argument) must be defined and non-empty"
 		if not defined $status_name or $status_name eq "";
-	croak "status_has_behavior: behavior (second argument) must be defined and non-empty"
+	carp "status_has_behavior: behavior (second argument) must be defined and non-empty"
 		if not defined $behavior or $behavior eq "";
 	
 	if (exists $ce->{statuses}{$status_name}) {
@@ -309,9 +309,9 @@
 
 sub status_abbrev_has_behavior {
 	my ($ce, $status_abbrev, $behavior) = @_;
-	croak "status_abbrev_has_behavior: status_abbrev (first argument) must be defined and non-empty"
+	carp "status_abbrev_has_behavior: status_abbrev (first argument) must be defined and non-empty"
 		if not defined $status_abbrev or $status_abbrev eq "";
-	croak "status_abbrev_has_behavior: behavior (second argument) must be defined and non-empty"
+	carp "status_abbrev_has_behavior: behavior (second argument) must be defined and non-empty"
 		if not defined $behavior or $behavior eq "";
 	
 	return $ce->status_has_behavior($ce->status_abbrev_to_name($status_abbrev), $behavior);