version 1.48, 2011/12/23 17:21:18
|
version 1.49, 2012/10/29 17:38:55
|
Line 99 use strict;
|
Line 99 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::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
Line 304 sub handler {
|
Line 303 sub handler {
|
my $uname; |
my $uname; |
my $udom; |
my $udom; |
|
|
($uname,$udom) = &Apache::loncacc::constructaccess($fn); |
($uname,$udom) = &Apache::lonnet::constructaccess($fn); |
unless (($uname ne '') && ($udom ne '')) { |
unless (($uname ne '') && ($udom ne '')) { |
$r->log_reason($uname.' at '.$udom. |
$r->log_reason($uname.' at '.$udom. |
' trying to publish file '.$env{'form.filename'}. |
' trying to publish file '.$env{'form.filename'}. |