--- 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;