loncom/imspackages/imsimport.pm - diff

Return to imsimport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.37, 2012/10/04 14:00:22	version 1.38, 2012/10/29 17:38:59
Line 29 package Apache::imsimport;	Line 29 package Apache::imsimport;

use strict;	use strict;
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::lonnet;	use Apache::lonnet;
use Apache::imsprocessor;	use Apache::imsprocessor;
Line 676 sub handler {	Line 675 sub handler {
return HTTP_NOT_FOUND;	return HTTP_NOT_FOUND;
}	}

my ($uname,$udom) = &Apache::loncacc::constructaccess($fn);	my ($uname,$udom) = &Apache::lonnet::constructaccess($fn);
if (($uname eq '') \|\| ($udom eq '')) {	if (($uname eq '') \|\| ($udom eq '')) {
$r->log_reason($uname.' at '.$udom.	$r->log_reason($uname.' at '.$udom.
' trying to publish file '.$fn.' - not authorized',	' trying to publish file '.$fn.' - not authorized',