[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[albertel]

albertel		Tue Sep 16 17:30:29 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - Fixes BUG#2196, batch publication was bleeding values between publications, (If you didn't set a title everything after the first one to have a title got the same title)
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.131 loncom/publisher/lonpublisher.pm:1.132
--- loncom/publisher/lonpublisher.pm:1.131	Thu Aug 21 13:07:57 2003
+++ loncom/publisher/lonpublisher.pm	Tue Sep 16 17:30:28 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.131 2003/08/21 17:07:57 albertel Exp $
+# $Id: lonpublisher.pm,v 1.132 2003/09/16 21:30:28 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1492,6 +1492,8 @@
 
 sub batchpublish {
     my ($r,$srcfile,$targetfile)=@_;
+    #publication pollutes %ENV with form.* values
+    my %oldENV=%ENV;
     $srcfile=~s/\/+/\//g;
     $targetfile=~s/\/+/\//g;
     my $thisdisfn=$srcfile;
@@ -1527,6 +1529,7 @@
 	&phasetwo($r,$srcfile,$targetfile,$thisembstyle,$thisdistarget,1);
 	$r->print('</p>');
     }
+    %ENV=%oldENV;
     return '';
 }