--- loncom/publisher/loncfile.pm 2012/06/04 19:23:41 1.115 +++ loncom/publisher/loncfile.pm 2012/10/29 17:38:55 1.116 @@ -9,7 +9,7 @@ # and displays a page showing the results of the action. # # -# $Id: loncfile.pm,v 1.115 2012/06/04 19:23:41 raeburn Exp $ +# $Id: loncfile.pm,v 1.116 2012/10/29 17:38:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,7 +68,6 @@ use File::Basename; use File::Copy; use HTML::Entities(); use Apache::Constants qw(:common :http :methods); -use Apache::loncacc; use Apache::lonnet; use Apache::loncommon(); use Apache::lonlocal; @@ -409,7 +408,7 @@ sub relativeDest { while ($newfilename=~m{/\.\./}) { $newfilename=~ s{/[^/]+/\.\./}{/}g; #remove dir/.. } - my ($authorname,$authordom)=&Apache::loncacc::constructaccess($newfilename); + my ($authorname,$authordom)=&Apache::lonnet::constructaccess($newfilename); unless (($authorname) && ($authordom)) { my $otherdir = &display($newfilename); $error = &mt('Access denied to [_1]',$otherdir); @@ -1442,7 +1441,7 @@ sub handler { # ----------------------------------------------------------- Start page output - my ($uname,$udom) = &Apache::loncacc::constructaccess($fn); + my ($uname,$udom) = &Apache::lonnet::constructaccess($fn); &Debug($r, "loncfile::handler constructaccess uname = $uname domain = $udom"); if (($uname eq '') || ($udom eq '')) {