--- loncom/interface/printout.pl	2005/03/23 22:37:46	1.75
+++ loncom/interface/printout.pl	2005/04/07 06:56:23	1.76
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.75 2005/03/23 22:37:46 albertel Exp $
+# $Id: printout.pl,v 1.76 2005/04/07 06:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,7 +27,7 @@
 #
 
 use lib '/home/httpd/lib/perl';
-use LONCAPA::loncgi();
+use LONCAPA::loncgi;
 use File::Path;
 use IO::File;
 use Image::Magick;
@@ -38,7 +38,6 @@ use Apache::lonlocal;
 
 use strict;
 $|=1;
-my %origENV=%ENV;
 if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
     print <<END;
 Content-type: text/html
@@ -58,27 +57,25 @@ END
  print $bodytag;
 
   my $identifier = $ENV{'QUERY_STRING'};
-  my $texfile = $ENV{'cgi.'.$identifier.'.file'};
-  my $laystyle = $ENV{'cgi.'.$identifier.'.layout'};
-  my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'};
-  my $paper = $ENV{'cgi.'.$identifier.'.paper'};
-  my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'};
-  my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
-  my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
-  my $advanced_role = $ENV{'cgi.'.$identifier.'role'};
-  my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
-  my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};
-  my $backref = &Apache::lonnet::unescape($ENV{'cgi.'.$identifier.'backref'});
+  my $texfile = $env{'cgi.'.$identifier.'.file'};
+  my $laystyle = $env{'cgi.'.$identifier.'.layout'};
+  my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'};
+  my $paper = $env{'cgi.'.$identifier.'.paper'};
+  my $selectionmade = $env{'cgi.'.$identifier.'.selection'};
+  my $tableofcontents = $env{'cgi.'.$identifier.'tableofcontents'};
+  my $tableofindex = $env{'cgi.'.$identifier.'tableofindex'};
+  my $advanced_role = $env{'cgi.'.$identifier.'role'};
+  my $number_of_files = $env{'cgi.'.$identifier.'numberoffiles'}+1;
+  my $student_names = $env{'cgi.'.$identifier.'studentnames'};
+  my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'backref'});
 
 
-  my $adv = $ENV{'request.role.adv'};
+  my $adv = $env{'request.role.adv'};
   
   my @names_pack=();
   if ($student_names=~/_END_/) {  
       @names_pack=split(/_ENDPERSON_/,$student_names);
   }
-  #got what we needed reset ENV in case it is to big for system
-  %ENV=%origENV;
 
   my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;