loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.51, 2001/02/13 00:15:49
+version 1.52, 2001/02/13 00:17:11
  Line 406  sub debug {
  }
  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 {