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.53, 2001/02/14 02:57:02
Line 333 sub parstring {	Line 333 sub parstring {
map {	map {
unless ($_=~/\W/) {	unless ($_=~/\W/) {
my $val=$token->[2]->{$_};	my $val=$token->[2]->{$_};
$val =~ s/([\%\@\\])/\$1/;	$val =~ s/([\%\@\\])/\\$1/g;
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; }	#if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
$temp .= "my \$$_=\"$val\";"	$temp .= "my \$$_=\"$val\";"
}	}
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 {