loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.336, 2004/08/19 20:53:48	version 1.337, 2004/08/23 19:53:13
Line 320 sub xmlparse {	Line 320 sub xmlparse {
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) {
my $location=&Apache::lonnet::filelocation('',$bodytext);	foreach my $file (split(',',$bodytext)) {
my $styletext=&Apache::lonnet::getfile($location);	my $location=&Apache::lonnet::filelocation('',$file);
if ($styletext ne '-1') {	my $styletext=&Apache::lonnet::getfile($location);
%style_for_target = (%style_for_target,	if ($styletext ne '-1') {
&Apache::style::styleparser($target,$styletext));	%style_for_target = (%style_for_target,
}	&Apache::style::styleparser($target,$styletext));
}	}
	}
	}
} elsif ($ENV{'construct.style'} && ($ENV{'request.state'} eq 'construct')) {	} elsif ($ENV{'construct.style'} && ($ENV{'request.state'} eq 'construct')) {
my $location=&Apache::lonnet::filelocation('',$ENV{'construct.style'});	my $location=&Apache::lonnet::filelocation('',$ENV{'construct.style'});
my $styletext=&Apache::lonnet::getfile($location);	my $styletext=&Apache::lonnet::getfile($location);