--- loncom/publisher/loncleanup.pm	2011/11/14 00:20:31	1.16
+++ loncom/publisher/loncleanup.pm	2012/10/29 17:38:55	1.17
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to cleanup XML files
 #
-# $Id: loncleanup.pm,v 1.16 2011/11/14 00:20:31 raeburn Exp $
+# $Id: loncleanup.pm,v 1.17 2012/10/29 17:38:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,7 +34,6 @@ use strict;
 use Apache::File;
 use File::Copy;
 use Apache::Constants qw(:common :http :methods);
-use Apache::loncacc;
 use Apache::loncommon();
 use Apache::lonhtmlcommon();
 use Apache::lonlocal;
@@ -410,7 +409,7 @@ sub handler {
     my $uname;
     my $udom;
 
-    ($uname,$udom)=&Apache::loncacc::constructaccess($fn);
+    ($uname,$udom)=&Apache::lonnet::constructaccess($fn);
     unless (($uname) && ($udom)) {
 	$r->log_reason($uname.' at '.$udom.
 		       ' trying to cleanup file '.$env{'form.filename'}.