Return to lonpublisher.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.131, 2003/08/21 17:07:57 | version 1.132, 2003/09/16 21:30:28 |
---|---|
Line 1492 sub phasetwo { | Line 1492 sub phasetwo { |
sub batchpublish { | sub batchpublish { |
my ($r,$srcfile,$targetfile)=@_; | my ($r,$srcfile,$targetfile)=@_; |
#publication pollutes %ENV with form.* values | |
my %oldENV=%ENV; | |
$srcfile=~s/\/+/\//g; | $srcfile=~s/\/+/\//g; |
$targetfile=~s/\/+/\//g; | $targetfile=~s/\/+/\//g; |
my $thisdisfn=$srcfile; | my $thisdisfn=$srcfile; |
Line 1527 sub batchpublish { | Line 1529 sub batchpublish { |
&phasetwo($r,$srcfile,$targetfile,$thisembstyle,$thisdistarget,1); | &phasetwo($r,$srcfile,$targetfile,$thisembstyle,$thisdistarget,1); |
$r->print('</p>'); | $r->print('</p>'); |
} | } |
%ENV=%oldENV; | |
return ''; | return ''; |
} | } |