[LON-CAPA-cvs] cvs: loncom(version_1_1_X) /interface printout.pl

[albertel]

albertel		Mon Mar 15 14:26:49 2004 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/interface	printout.pl 
  Log:
  - when doing the backport this line ended up in the wrong location
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.40.2.2 loncom/interface/printout.pl:1.40.2.3
--- loncom/interface/printout.pl:1.40.2.2	Thu Mar  4 00:21:34 2004
+++ loncom/interface/printout.pl	Mon Mar 15 14:26:49 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.40.2.2 2004/03/04 05:21:34 albertel Exp $
+# $Id: printout.pl,v 1.40.2.3 2004/03/15 19:26:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,6 +59,9 @@
   my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
   my $advans_role = $ENV{'cgi.'.$identifier.'role'};
 
+  #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/;
   my $duefile = $texfile;
@@ -278,8 +281,6 @@
   } else {
       print "LaTeX file $texfile was not created successfully";
   }
-  #got what we needed reset ENV in case it is to big for system
-  %ENV=%origENV;