--- loncom/interface/lonprintout.pm	2003/11/11 16:53:48	1.264
+++ loncom/interface/lonprintout.pm	2004/01/15 21:23:22	1.270
@@ -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.270 2004/01/15 21:23:22 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -515,17 +515,16 @@ sub page_cleanup {
 
 sub details_for_menu {
 
-    my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};
+    my $name_of_resourse = &Apache::lonnet::gettitle($ENV{'form.postdata'});
     my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
     my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);
     $map=&Apache::lonnet::clutter($map);
-    my $name_of_sequence;
-    $name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}};
+    my $name_of_sequence = &Apache::lonnet::gettitle($map);
     if ($name_of_sequence =~ /^\s*$/) {
 	$map =~ m|([^/]+)$|;
 	$name_of_sequence = $1;
     }
-    my $name_of_map = $hash{'title_'.$hash{'ids_'.&Apache::lonnet::clutter($ENV{'request.course.uri'})}};
+    my $name_of_map = &Apache::lonnet::gettitle($ENV{'request.course.uri'});
     if ($name_of_map =~ /^\s*$/) {
 	$ENV{'request.course.uri'} =~ m|([^/]+)$|;
 	$name_of_map = $1;
@@ -725,7 +724,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;	
@@ -868,6 +872,7 @@ ENDPART
 	my $flag_page_in_sequence = 'NO';
 	my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
 	my $prevassignment='';
+	&Apache::lonnet::delenv('form.counter');
 	&Apache::lonxml::init_counter();
 	for (my $i=0;$i<=$#master_seq;$i++) {
 	    my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
@@ -884,6 +889,7 @@ ENDPART
 	    $form{'symb'}=$master_seq[$i];
 	    my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]);
 	    my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem
+	    if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
 	    if ($i==0) {$prevassignment=$assignment;}
 	    #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
 	    my $texversion.=&Apache::lonnet::ssi($urlp,%form);
@@ -1554,7 +1560,8 @@ CHOOSE_FROM_ANY_SEQUENCE
 	}
 
 	if ($helper->{'VARS'}->{'construction'}) { 
-	    my $xmlfrag .= <<'RNDSEED';
+	    my $stylevalue=$ENV{'construct.style'};
+	    my $xmlfrag .= <<"RNDSEED";
 	    <message><tr><td align='right'>Use random seed: </td><td></message>
 	    <string variable="curseed" size="15" maxlength="15">
 		<defaultvalue>
@@ -1562,7 +1569,7 @@ CHOOSE_FROM_ANY_SEQUENCE
 	        </defaultvalue>
 	    </string>
 	     <message></td></tr><tr><td align="right">Use style file:</td><td></message>
-             <message><input type="text" size="40" name="style_file_value" value=""  /><a href="javascript:openbrowser('helpform','style_file','sty')">&nbsp; Select style file</a> </td><td></message>
+             <message><input type="text" size="40" name="style_file_value" value="$stylevalue"  />&nbsp; <a href="javascript:openbrowser('helpform','style_file','sty')">Select style file</a> </td><td></message>
              <message></td></tr></message>
 RNDSEED
             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
@@ -1635,6 +1642,7 @@ use Apache::lonhelper;
 no strict;
 @ISA = ("Apache::lonhelper::element");
 use strict;
+use Apache::lonlocal;
 
 my $maxColumns = 2;
 my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", 
@@ -1662,15 +1670,17 @@ sub render {
     my $helper = Apache::lonhelper::getHelper();
     my $result = '';
     my $var = $self->{'variable'};
-
+    my $PageLayout=&mt('Page layout');
+    my $NumberOfColumns=&mt('Number of columns');
+    my $PaperType=&mt('Paper type');
     $result .= <<STATEHTML;
 
 <hr width="33%" />
 <table cellpadding="3">
   <tr>
-    <td align="center"><b>Page layout</b></td>
-    <td align="center"><b>Number of columns</b></td>
-    <td align="center"><b>Paper type</b></td>
+    <td align="center"><b>$PageLayout</b></td>
+    <td align="center"><b>$NumberOfColumns</b></td>
+    <td align="center"><b>$PaperType</b></td>
   </tr>
   <tr>
     <td>