version 1.177, 2002/06/14 19:56:57
|
version 1.178, 2002/06/15 18:59:26
|
Line 524 sub xmlparse {
|
Line 524 sub xmlparse {
|
my ($request,$target,$content_file_string,$safeinit,%style_for_target) = @_; |
my ($request,$target,$content_file_string,$safeinit,%style_for_target) = @_; |
|
|
&setup_globals($request,$target); |
&setup_globals($request,$target); |
|
# |
|
# do we have a course style file? |
|
# |
|
|
|
if ($ENV{'request.course.id'}) { |
|
my $bodytext= |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.default_xml_style'}; |
|
if ($bodytext) { |
|
my $location=&Apache::lonnet::filelocation('',$bodytext); |
|
my $styletext=&Apache::lonnet::getfile($location); |
|
if ($styletext ne '-1') { |
|
%style_for_target = (%style_for_target, |
|
&Apache::style::styleparser($target,$styletext)); |
|
} |
|
} |
|
} |
|
|
#&printalltags(); |
#&printalltags(); |
my @pars = (); |
my @pars = (); |
my $pwd=$ENV{'request.filename'}; |
my $pwd=$ENV{'request.filename'}; |