loncom/publisher/loncleanup.pm - diff

Return to loncleanup.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.16, 2011/11/14 00:20:31	version 1.17, 2012/10/29 17:38:55
Line 34 use strict;	Line 34 use strict;
use Apache::File;	use Apache::File;
use File::Copy;	use File::Copy;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonlocal;	use Apache::lonlocal;
Line 410 sub handler {	Line 409 sub handler {
my $uname;	my $uname;
my $udom;	my $udom;

($uname,$udom)=&Apache::loncacc::constructaccess($fn);	($uname,$udom)=&Apache::lonnet::constructaccess($fn);
unless (($uname) && ($udom)) {	unless (($uname) && ($udom)) {
$r->log_reason($uname.' at '.$udom.	$r->log_reason($uname.' at '.$udom.
' trying to cleanup file '.$env{'form.filename'}.	' trying to cleanup file '.$env{'form.filename'}.