--- loncom/interface/lonprintout.pm 2003/11/11 16:53:48 1.264
+++ loncom/interface/lonprintout.pm 2003/12/04 21:44:21 1.266
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.264 2003/11/11 16:53:48 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.266 2003/12/04 21:44:21 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -725,7 +725,12 @@ ENDPART
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
my %moreenv;
$moreenv{'request.filename'}=$currentURL;
- if ($helper->{'VARS'}->{'style_file'}=~/\w/) {$moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'};}
+ if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
+ $moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'};
+ my $dom = $ENV{'user.domain'};
+ my $user = $ENV{'user.name'};
+ my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user);
+ }
my %form;
$form{'grade_target'}='tex';
$form{'textwidth'}=$LaTeXwidth;
@@ -1554,7 +1559,8 @@ CHOOSE_FROM_ANY_SEQUENCE
}
if ($helper->{'VARS'}->{'construction'}) {
- my $xmlfrag .= <<'RNDSEED';
+ my $stylevalue=$ENV{'construct.style'};
+ my $xmlfrag .= <<"RNDSEED";
Use random seed:
Use style file:
-
+
Page layout | -Number of columns | -Paper type | +$PageLayout | +$NumberOfColumns | +$PaperType |