--- loncom/interface/lonprintout.pm	2008/03/11 09:52:56	1.519
+++ loncom/interface/lonprintout.pm	2008/03/12 02:45:07	1.520
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.519 2008/03/11 09:52:56 foxr Exp $
+# $Id: lonprintout.pm,v 1.520 2008/03/12 02:45:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1473,8 +1473,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');
     }
@@ -1517,7 +1517,7 @@ ENDPART
 		    $rndseed=$helper->{'VARS'}->{'curseed'};
 		}
 		$form{'rndseed'}=$rndseed;
-		&Apache::lonnet::appenv(%moreenv);
+		&Apache::lonnet::appenv(\%moreenv);
 
 		&Apache::lonxml::clear_problem_counter();
 
@@ -2168,7 +2168,7 @@ ERROR_END
 	#  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,
@@ -2178,12 +2178,12 @@ ERROR_END
 				'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);