--- loncom/publisher/loncleanup.pm	2011/11/03 00:30:32	1.15
+++ 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.15 2011/11/03 00:30:32 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'}.
@@ -419,17 +418,17 @@ sub handler {
 	return HTTP_NOT_ACCEPTABLE;
     }
 
-    $fn=~s{^/priv/$LONCAPA::domain_re/$LONCAPA::username_re}{};
-
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 
     # Breadcrumbs
-    my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
+    my $brcrum = [{'href' => &Apache::loncommon::authorspace($fn),
                    'text' => 'Construction Space'},
                   {'href' => '',
                    'text' => 'Cleanup XML Document'}];
 
+    $fn=~s{^/priv/$LONCAPA::domain_re/$LONCAPA::username_re}{};
+
     $r->print(&Apache::loncommon::start_page('Cleanup XML Document',
                                              undef,
                                              {'bread_crumbs' => $brcrum,}));