--- loncom/publisher/lonpublisher.pm	2005/01/12 16:18:54	1.182
+++ loncom/publisher/lonpublisher.pm	2005/01/12 20:58:26	1.183
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.182 2005/01/12 16:18:54 www Exp $
+# $Id: lonpublisher.pm,v 1.183 2005/01/12 20:58:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -139,6 +139,7 @@ my $cuname;
 my $cudom;
 
 my $registered_cleanup;
+my $modified_urls;
 
 =pod
 
@@ -1545,10 +1546,8 @@ sub phasetwo {
     $r->rflush;
 
 # ------------------------------------------------------------- Trigger updates
-    print $logfile("\nRegistering for notifications: $target $source\n");
-    push(@{$ENV{'internal.publication.targetsource'}},[$target,$source]);
+    push(@{$modified_urls},[$target,$source]);
     unless ($registered_cleanup) {
-	&Apache::lonnet::logthis('Cleanup handler registered');
 	$r->register_cleanup(\&notify);
 	$registered_cleanup=1;
     }
@@ -1580,8 +1579,7 @@ sub phasetwo {
 # =============================================================== Notifications
 sub notify {  
 # --------------------------------------------------- Send update notifications
-    &Apache::lonnet::logthis('Cleanup Phase Publication Handler');
-    foreach my $targetsource (@{$ENV{'internal.publication.targetsource'}}){
+    foreach my $targetsource (@{$modified_urls}){
 	my ($target,$source)=@{$targetsource};
 	my $logfile=Apache::File->new('>>'.$source.'.log');
 	print $logfile "\nCleanup phase: Notifications\n";
@@ -1824,8 +1822,9 @@ sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['filename']);
 
-# ------------------------------------------------- Flag for registered cleanup
+# -------------------------------------- Flag and buffer for registered cleanup
     $registered_cleanup=0;
+    @{$modified_urls}=();
 # -------------------------------------------------------------- Check filename
 
     my $fn=&Apache::lonnet::unescape($ENV{'form.filename'});