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', |