version 1.335, 2004/08/10 18:25:53
|
version 1.336, 2004/08/19 20:53:48
|
Line 1340 sub debug {
|
Line 1340 sub debug {
|
} |
} |
|
|
sub error { |
sub error { |
$errorcount++; |
$errorcount++; |
my $request=$Apache::lonxml::request; |
if (($Apache::lonxml::debug eq 1) || ($ENV{'request.state'} eq 'construct') ) { |
if (!$request) { $request=Apache->request; } |
# If printing in construction space, put the error inside <pre></pre> |
if (($Apache::lonxml::debug eq 1) || ($ENV{'request.state'} eq 'construct') ) { |
push(@Apache::lonxml::error_messages, |
# If printing in construction space, put the error inside <pre></pre> |
$Apache::lonxml::warnings_error_header. |
push(@Apache::lonxml::error_messages, |
"<b>ERROR:</b>".join("<br />\n",@_)."<br />\n"); |
$Apache::lonxml::warnings_error_header. |
$Apache::lonxml::warnings_error_header=''; |
"<b>ERROR:</b>".join("<br />\n",@_)."<br />\n"); |
} else { |
$Apache::lonxml::warnings_error_header=''; |
my $errormsg; |
} else { |
my ($symb)=&Apache::lonnet::symbread(); |
push(@Apache::lonxml::error_messages, |
if ( !$symb ) { |
"<b>An Error occured while processing this resource. The instructor has been notified.</b> <br />"); |
#public or browsers |
#notify author |
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('<br />',@_)); |
} |
#notify course |
#notify author |
if ( $ENV{'request.course.id'} ) { |
&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('<br />',@_)); |
my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1); |
#notify course |
my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'}); |
if ( $symb && $ENV{'request.course.id'} ) { |
foreach (keys %users) { |
my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1); |
my ($user,$domain) = split(/:/, $_); |
my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'}); |
&Apache::lonmsg::user_normal_msg($user,$domain, |
my @userlist; |
"Error [$declutter]",join('<br />',@_)); |
foreach (keys %users) { |
} |
my ($user,$domain) = split(/:/, $_); |
|
push(@userlist,"$user\@$domain"); |
|
&Apache::lonmsg::user_normal_msg($user,$domain, |
|
"Error [$declutter]",join('<br />',@_)); |
|
} |
|
if ($ENV{'request.role.adv'}) { |
|
$errormsg=&mt("An error occured while processing this resource. The course personnel ([_1]) and the author have been notified.",join(', ',@userlist)); |
|
} else { |
|
$errormsg=&mt("An error occured while processing this resource. The instructor has been notified."); |
|
} |
|
} |
|
push(@Apache::lonxml::error_messages,"<b>$errormsg</b> <br />"); |
} |
} |
} |
|
} |
} |
|
|
sub warning { |
sub warning { |