diff --git a/lib/WeBWorK/ContentGenerator/Problem.pm b/lib/WeBWorK/ContentGenerator/Problem.pm index c90d4744f1..8538094f77 100644 --- a/lib/WeBWorK/ContentGenerator/Problem.pm +++ b/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. }