Correct method of counting the number of error messages.

The previous syntax always left exactly one element in the array even if there were not warning messages.

lib/WeBWorK/ContentGenerator/Problem.pm

@@ -733,13 +733,13 @@ sub pre_header_initialize {
 	$can{showSolutions} &&= $pg->{flags}->{solutionExists};
 
 	##### record errors #########
-	my @debug_messages     = join(CGI::br(), @{$pg->{pgcore}->get_debug_messages } );
-	my @warning_messages   = join(CGI::br(), @{$pg->{pgcore}->get_warning_messages} );
-	my @internal_errors    = join(CGI::br(),  @{$pg->{pgcore}->get_internal_debug_messages}   );
+	my @debug_messages     = @{$pg->{pgcore}->get_debug_messages};
+	my @warning_messages   = @{$pg->{pgcore}->get_warning_messages};
+	my @internal_errors    = @{$pg->{pgcore}->get_internal_debug_messages};
 	$self->{pgerrors}      = @debug_messages||@warning_messages||@internal_errors;  # is 1 if any of these are non-empty
-	$self->{pgdebug}       = \@debug_messages;
-	$self->{pgwarning}     = \@warning_messages;
-	$self->{pginternalerrors} = \@internal_errors;
+	$self->{pgdebug}       =    \@debug_messages;
+	$self->{pgwarning}     =    \@warning_messages;
+	$self->{pginternalerrors} = \@internal_errors ;
 
 	##### store fields #####
 
@@ -776,7 +776,7 @@ sub warnings {
 	} 
 	# print "proceeding to SUPER::warnings";
 	$self->SUPER::warnings();
-	#$self->{pgerrors};
+	print $self->{pgerrors};
 	"";  #FIXME -- let's see if this is the appropriate output.
 }