loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.176, 2002/06/03 21:07:20
+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'};
- Line 1240  ENDNOTFOUND
+ Line 1257  ENDNOTFOUND
  #
    unless ($ENV{'request.state'} eq 'published') {
      if ($ENV{'form.editmode'} && (!($ENV{'form.viewmode'}))) {
-       $result='<html><body bgcolor="#FFFFFF"></body></html>';
+ 	my $displayfile=$request->uri;
+         $displayfile=~s/^\/[^\/]*//;
+       $result='<html><body bgcolor="#FFFFFF"><h3>'.$displayfile.
+               '</h3></body></html>';
        $result=&inserteditinfo($result,$filecontents);
      }
    }