version 1.51, 2001/02/13 00:15:49
|
version 1.52, 2001/02/13 00:17:11
|
Line 406 sub debug {
|
Line 406 sub debug {
|
} |
} |
|
|
sub error { |
sub error { |
print "ERROR:".$_[0]."<br>\n"; |
if ($Apache::lonxml::debug eq 1) { |
|
print "ERROR:".$_[0]."<br>\n"; |
|
} else { |
|
print "<b>An Error occured while processing this resource. The instructor has been notified.</b> <br />"; |
|
#notify author |
|
&Apache::lonmsg::author_res_msg($ENV{'request.filename'},$_[0]); |
|
#notify course |
|
if ( $ENV{'request.course.id'} ) { |
|
my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'}; |
|
foreach my $user (split /\,/, $users) { |
|
($user,my $domain) = split /:/, $user; |
|
&Apache::lonmsg::user_crit_msg($user,$domain,"Error in $ENV{'request.filename'}",$_[0]); |
|
} |
|
} |
|
|
|
#FIXME probably shouldn't have me get everything forever. |
|
&Apache::lonmsg::user_crit_msg('albertel','msu',"Error in $ENV{'request.filename'}",$_[0]); |
|
#&Apache::lonmsg::user_crit_msg('albertel','103',"Error in $ENV{'request.filename'}",$_[0]); |
|
} |
} |
} |
|
|
sub warning { |
sub warning { |