[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[sakharuk]

sakharuk		Thu Nov  6 14:24:12 2003 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  Added possibility to include style file during printing from the construction space. Waiting critical comments from Guy.
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.290 loncom/xml/lonxml.pm:1.291
--- loncom/xml/lonxml.pm:1.290	Thu Oct 30 15:22:00 2003
+++ loncom/xml/lonxml.pm	Thu Nov  6 14:24:11 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.290 2003/10/30 20:22:00 albertel Exp $
+# $Id: lonxml.pm,v 1.291 2003/11/06 19:24:11 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -337,6 +337,13 @@
                           &Apache::style::styleparser($target,$styletext));
        }
     }
+ } elsif ($ENV{'construction_space_style'} && ($ENV{'request.state'} eq 'construct')) {
+     my $location=&Apache::lonnet::filelocation('',$ENV{'construction_space_style'});
+     my $styletext=&Apache::lonnet::getfile($location);
+       if ($styletext ne '-1') {
+          %style_for_target = (%style_for_target,
+                          &Apache::style::styleparser($target,$styletext));
+      }
  }
 #&printalltags();
  my @pars = ();