--- loncom/publisher/lonpublisher.pm 2009/07/30 09:42:25 1.262
+++ loncom/publisher/lonpublisher.pm 2009/11/24 01:44:44 1.264
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.262 2009/07/30 09:42:25 bisitz Exp $
+# $Id: lonpublisher.pm,v 1.264 2009/11/24 01:44:44 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1747,7 +1747,8 @@ sub phasetwo {
# ------------------------------------------------------------- Trigger updates
push(@{$modified_urls},[$target,$source]);
unless ($registered_cleanup) {
- $r->register_cleanup(\¬ify);
+ my $handlers = $r->get_handlers('PerlCleanupHandler');
+ $r->set_handlers('PerlCleanupHandler' => [\¬ify,@{$handlers}]);
$registered_cleanup=1;
}
@@ -1770,25 +1771,21 @@ sub phasetwo {
my $thissrcdir=$thissrc;
$thissrcdir=~s/\/[^\/]+$/\//;
- $r->print(&Apache::lonhtmlcommon::start_funclist());
- unless ($env{'request.role'}=~/^(aa)/) {
- $r->print(
- &Apache::lonhtmlcommon::add_item_funclist(
- ''
- .&mt('View Published Version')
- .'')
- );
- }
- $r->print(
+ $r->print(&Apache::loncommon::head_subbox(
+ &Apache::lonhtmlcommon::start_funclist().
+ &Apache::lonhtmlcommon::add_item_funclist(
+ ''.
+ &mt('View Published Version').
+ '').
+ &Apache::lonhtmlcommon::add_item_funclist(
+ ''.
+ &mt('Back to Source').
+ '').
&Apache::lonhtmlcommon::add_item_funclist(
- ''
- .&mt('Back to Source')
- .'')
- .&Apache::lonhtmlcommon::add_item_funclist(
- ''
- .&mt('Back to Source Directory')
- .'')
- .&Apache::lonhtmlcommon::end_funclist()
+ ''.
+ &mt('Back to Source Directory').
+ '').
+ &Apache::lonhtmlcommon::end_funclist())
);
}
return 1;