version 1.415, 2006/07/11 09:44:04
|
version 1.416, 2006/09/14 21:52:36
|
Line 1541 sub error {
|
Line 1541 sub error {
|
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
} |
} |
my $host=$Apache::lonnet::perlvar{'lonHostID'}; |
my $host=$Apache::lonnet::perlvar{'lonHostID'}; |
my $msg = join('<br />',(@_,"The occured on host <tt>$host</tt>")); |
my $msg = join('<br />',(@_,"The error occurred on host <tt>$host</tt>")); |
#notify author |
#notify author |
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
#notify course |
#notify course |