--- loncom/publisher/loncleanup.pm 2011/11/03 00:30:32 1.15 +++ loncom/publisher/loncleanup.pm 2011/11/14 00:20:31 1.16 @@ -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.16 2011/11/14 00:20:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -419,17 +419,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,}));