loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.258.2.1, 2009/08/13 05:35:33	version 1.258.2.3, 2009/11/24 01:11:53
Line 1747 sub phasetwo {	Line 1747 sub phasetwo {
# ------------------------------------------------------------- Trigger updates	# ------------------------------------------------------------- Trigger updates
push(@{$modified_urls},[$target,$source]);	push(@{$modified_urls},[$target,$source]);
unless ($registered_cleanup) {	unless ($registered_cleanup) {
$r->register_cleanup(\&notify);	my $handlers = $r->get_handlers('PerlCleanupHandler');
	$r->set_handlers('PerlCleanupHandler' => [\&notify,@{$handlers}]);
$registered_cleanup=1;	$registered_cleanup=1;
}	}

Line 1773 sub phasetwo {	Line 1774 sub phasetwo {
unless ($env{'request.role'} =~ /^aa/) {	unless ($env{'request.role'} =~ /^aa/) {
$r->print(	$r->print(
'<hr /><a href="'.$thisdistarget.'"><font size="+2">'.	'<hr /><a href="'.$thisdistarget.'"><font size="+2">'.
$&mt('View Published Version').'</font></a>');	&mt('View Published Version').'</font></a>');
}	}
$r->print('<p><a href="'.$thissrc.'"><font size="+2">'.	$r->print('<p><a href="'.$thissrc.'"><font size="+2">'.
&mt('Back to Source').'</font></a></p>'.	&mt('Back to Source').'</font></a></p>'.