loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.177, 2002/06/14 19:56:57
+version 1.178, 2002/06/15 18:59:26
  Line 524  sub xmlparse {
   my ($request,$target,$content_file_string,$safeinit,%style_for_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();
   my @pars = ();
   my $pwd=$ENV{'request.filename'};