|
version 1.249.2.2, 2009/11/24 00:59:48
|
version 1.249.2.3, 2009/11/24 01:01:28
|
|
Line 1742 sub phasetwo {
|
Line 1742 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; |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher