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); |