--- loncom/interface/lonprintout.pm	2008/03/24 18:24:30	1.519.2.3
+++ loncom/interface/lonprintout.pm	2008/03/23 19:48:49	1.522
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.519.2.3 2008/03/24 18:24:30 raeburn Exp $
+# $Id: lonprintout.pm,v 1.522 2008/03/23 19:48:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -116,7 +116,7 @@ sub annotate {
 #                      the number of times requested by the caller.
 #                      If we still have a proble, no text is appended to the
 #                      output and we set some global variables.
-#                      to indicate to the caller an SSI error occurred.  
+#                      to indicate to the caller an SSI error occured.  
 #                      All of this is supposed to deal with the issues described
 #                      in LonCAPA BZ 5631 see:
 #                      http://bugs.lon-capa.org/show_bug.cgi?id=5631
@@ -132,10 +132,10 @@ sub annotate {
 #   On success, returns the rendered resource identified by the resource parameter.
 # Side Effects:
 #   The following global variables can be set:
-#    ssi_error                - If an unrecoverable error occurred this becomes true.
+#    ssi_error                - If an unrecoverable error occured this becomes true.
 #                               It is up to the caller to initialize this to false
 #                               if desired.
-#    ssi_last_error_resource  - If an unrecoverable error occurred, this is the value
+#    ssi_last_error_resource  - If an unrecoverable error occured, this is the value
 #                               of the resource that could not be rendered by the ssi
 #                               call.
 #    ssi_last_error           - The error string fetched from the ssi response
@@ -1474,8 +1474,8 @@ ENDPART
     }
     
     if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
-	&Apache::lonnet::appenv('construct.style' =>
-				$helper->{'VARS'}->{'style_file'});
+	&Apache::lonnet::appenv({'construct.style' =>
+				$helper->{'VARS'}->{'style_file'}});
     } elsif ($env{'construct.style'}) {
 	&Apache::lonnet::delenv('construct\\.style');
     }
@@ -1518,7 +1518,7 @@ ENDPART
 		    $rndseed=$helper->{'VARS'}->{'curseed'};
 		}
 		$form{'rndseed'}=$rndseed;
-		&Apache::lonnet::appenv(%moreenv);
+		&Apache::lonnet::appenv(\%moreenv);
 
 		&Apache::lonxml::clear_problem_counter();
 
@@ -1666,7 +1666,8 @@ ENDPART
 	my $pbreakresources = keys %page_breaks;
 	for (my $i=0;$i<=$#master_seq;$i++) {
 
-            &Apache::lonenc::reset_enc();
+	    &Apache::lonenc::reset_enc();
+
 
 	    # Note due to document structure, not allowed to put \newpage
 	    # prior to the first resource
@@ -1676,10 +1677,11 @@ ENDPART
 		    $result.="\\newpage\n";
 		}
 	    }
-            my ($sequence,$middle_thingy,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
+	    my ($sequence,$middle_thingy,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
 	    $urlp=&Apache::lonnet::clutter($urlp);
 	    $form{'symb'}=$master_seq[$i];
 
+
 	    my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #title of the assignment which contains this problem
 
 	    if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
@@ -1989,7 +1991,7 @@ ENDPART
 	}
 	for (my $i=0;$i<=$#list_of_files;$i++) {
 
-            &Apache::lonenc::reset_enc();
+	    &Apache::lonenc::reset_enc();
 
 	    my $urlp = $list_of_files[$i];
 	    $urlp=~s|//|/|;
@@ -2092,12 +2094,12 @@ ENDPART
     if ($ssi_error) {
 
         my $helpurl = &Apache::loncommon::top_nav_help('Helpdesk');
-        my $end_page = &Apache::loncommon::end_page();
-        $r->print('
+	my $end_page = &Apache::loncommon::end_page();
+	$r->print('
 <br />
-<h2>'.&mt('An unrecoverable network error occurred:').'</h2>
+<h2>'.&mt('An unrecoverable error occured:').'</h2>
 <p>
-  '.&mt('One of the resources ([_1]) you chose to print could not be rendered due to an unrecoverable error when communicating with a server:',$ssi_last_error_resource).'
+  '.&mt('One of the resources ([_1]) you chose to print could not be rendered due to an unrecoverable error when communicating with a server:',$ssi_last_error_resource).' 
 <br />
 '.$ssi_last_error.'
 </p>
@@ -2108,7 +2110,6 @@ ENDPART
 &mt('We apologize for the inconvenience.').
 '</p>'.
 $end_page);
-
     } else {
 
 #-- writing .tex file in prtspool 
@@ -2173,7 +2174,7 @@ $end_page);
 	#  yet.
 	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
 	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
-	&Apache::lonnet::appenv('cgi.'.$identifier.'.file'   => $filename,
+	&Apache::lonnet::appenv({'cgi.'.$identifier.'.file'   => $filename,
 				'cgi.'.$identifier.'.layout'  => $laystyle,
 				'cgi.'.$identifier.'.numcol'  => $numberofcolumns,
 				'cgi.'.$identifier.'.paper'  => $papersize,
@@ -2183,12 +2184,12 @@ $end_page);
 				'cgi.'.$identifier.'.role' => $perm{'pav'},
 				'cgi.'.$identifier.'.numberoffiles' => $#print_array,
 				'cgi.'.$identifier.'.studentnames' => $student_names,
-				'cgi.'.$identifier.'.backref' => $URLback,);
-	&Apache::lonnet::appenv("cgi.$identifier.user"    => $env{'user.name'},
+				'cgi.'.$identifier.'.backref' => $URLback,});
+	&Apache::lonnet::appenv({"cgi.$identifier.user"    => $env{'user.name'},
 				"cgi.$identifier.domain"  => $env{'user.domain'},
 				"cgi.$identifier.courseid" => $cnum, 
 				"cgi.$identifier.coursedom" => $cdom, 
-				"cgi.$identifier.resources" => $resources_printed);
+				"cgi.$identifier.resources" => $resources_printed});
 	
 	my $end_page = &Apache::loncommon::end_page();
 	$r->print(<<FINALEND);