loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.411, 2006/04/20 02:58:14	version 1.413, 2006/06/27 14:22:39
Line 1419 sub handler {	Line 1419 sub handler {
my $filecontents=&Apache::lonnet::getfile($file);	my $filecontents=&Apache::lonnet::getfile($file);
if ($filecontents eq -1) {	if ($filecontents eq -1) {
my $start_page=&Apache::loncommon::start_page('File Error');	my $start_page=&Apache::loncommon::start_page('File Error');
my $end_page=&Apache::loncommon::end_page('File Error');	my $end_page=&Apache::loncommon::end_page();
my $fnf=&mt('File not found');	my $fnf=&mt('File not found');
$result=(<<ENDNOTFOUND);	$result=(<<ENDNOTFOUND);
$start_page	$start_page
Line 1539 sub error {	Line 1539 sub error {
#public or browsers	#public or browsers
$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 $msg = join('<br />',@_);	my $host=$Apache::lonnet::perlvar{'lonHostID'};
	my $msg = join('<br />',(@_,"The occured 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