--- loncom/xml/lonxml.pm 2003/10/29 18:29:24 1.289 +++ loncom/xml/lonxml.pm 2003/11/06 19:24:11 1.291 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.289 2003/10/29 18:29:24 sakharuk 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 @@ sub xmlparse { &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 = (); @@ -1060,6 +1067,7 @@ ENDSCRIPT sub storefile { my ($file,$contents)=@_; + &Apache::lonnet::correct_line_ends(\$contents); if (my $fh=Apache::File->new('>'.$file)) { print $fh $contents; $fh->close();