loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.207, 2002/10/21 20:31:06	version 1.209, 2002/10/28 14:00:18
Line 528 sub xmlparse {	Line 528 sub xmlparse {
# do we have a course style file?	# do we have a course style file?
#	#

if ($ENV{'request.course.id'}) {	if ($ENV{'request.course.id'} && $ENV{'request.state'} ne 'construct') {
my $bodytext=	my $bodytext=
$ENV{'course.'.$ENV{'request.course.id'}.'.default_xml_style'};	$ENV{'course.'.$ENV{'request.course.id'}.'.default_xml_style'};
if ($bodytext) {	if ($bodytext) {
Line 1381 sub error {	Line 1381 sub error {
&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('<br />',@_));	&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('<br />',@_));
#notify course	#notify course
if ( $ENV{'request.course.id'} ) {	if ( $ENV{'request.course.id'} ) {
my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'};	my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1);
my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'});	my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'});
foreach my $user (split /\,/, $users) {	foreach (keys %users) {
($user,my $domain) = split /:/, $user;	my ($user,$domain) = split(/:/, $_);
&Apache::lonmsg::user_normal_msg($user,$domain,	&Apache::lonmsg::user_normal_msg($user,$domain,
"Error [$declutter]",join('<br />',@_));	"Error [$declutter]",join('<br />',@_));
}	}