--- loncom/publisher/lonpublisher.pm 2009/08/13 05:35:33 1.258.2.1 +++ loncom/publisher/lonpublisher.pm 2009/11/24 01:11:53 1.258.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.258.2.1 2009/08/13 05:35:33 raeburn Exp $ +# $Id: lonpublisher.pm,v 1.258.2.3 2009/11/24 01:11:53 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; } @@ -1773,7 +1774,7 @@ sub phasetwo { unless ($env{'request.role'} =~ /^aa/) { $r->print( '
'. - $&mt('View Published Version').''); + &mt('View Published Version').''); } $r->print('

'. &mt('Back to Source').'

'.