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(\¬ify); |
my $handlers = $r->get_handlers('PerlCleanupHandler'); |
|
$r->set_handlers('PerlCleanupHandler' => [\¬ify,@{$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>'. |