loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.347, 2004/11/29 22:45:51	version 1.348, 2004/11/30 22:57:16
Line 1377 sub debug {	Line 1377 sub debug {
}	}
}	}

	sub show_error_warn_msg {
	return (($Apache::lonxml::debug eq 1) \|\|
	($ENV{'request.state'} eq 'construct') \|\|
	($Apache::lonhomework::browse eq 'F'
	&&
	$ENV{'form.show_errors'} eq 'on'));
	}

sub error {	sub error {
$errorcount++;	$errorcount++;
if (($Apache::lonxml::debug eq 1) \|\| ($ENV{'request.state'} eq 'construct') ) {	if ( &show_error_warn_msg() ) {
# If printing in construction space, put the error inside <pre></pre>	# If printing in construction space, put the error inside <pre></pre>
push(@Apache::lonxml::error_messages,	push(@Apache::lonxml::error_messages,
$Apache::lonxml::warnings_error_header.	$Apache::lonxml::warnings_error_header.
Line 1419 sub warning {	Line 1427 sub warning {
$warningcount++;	$warningcount++;

if ($ENV{'form.grade_target'} ne 'tex') {	if ($ENV{'form.grade_target'} ne 'tex') {
if ($ENV{'request.state'} eq 'construct' \|\| $Apache::lonxml::debug) {	if ( &show_error_warn_msg() ) {
my $request=$Apache::lonxml::request;	my $request=$Apache::lonxml::request;
if (!$request) { $request=Apache->request; }	if (!$request) { $request=Apache->request; }
push(@Apache::lonxml::warning_messages,	push(@Apache::lonxml::warning_messages,