Index: openacs-4/packages/xowiki/tcl/notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/notification-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xowiki/tcl/notification-procs.tcl	8 Jun 2007 12:04:14 -0000	1.6
+++ openacs-4/packages/xowiki/tcl/notification-procs.tcl	7 Jul 2007 15:49:10 -0000	1.7
@@ -85,7 +85,7 @@
     
     if {[$page set publish_status] eq "production"} {
       # don't do notification for pages under construction
-      ns_log notice "--n xowiki::notification NO NOTIFCATION due to production state"
+      #ns_log notice "--n xowiki::notification NO NOTIFCATION due to production state"
       return
     }
     
@@ -102,7 +102,7 @@
     set state [expr {[$page set last_modified] eq [$page set creation_date] ? "New" : "Updated"}]
     set instance_name [::$package_id instance_name]
     
-    ns_log notice "--n per directory [$page set title] ($state)"
+    #ns_log notice "--n per directory [$page set title] ($state)"
     notification::new \
         -type_id [notification::type::get_type_id -short_name xowiki_notif] \
         -object_id [$page set package_id] \
@@ -112,9 +112,8 @@
         -notif_html $html \
         -notif_user [$page set creation_user]
 
-    ns_log notice "--n find categories [$page set title] ($state)"
+    #ns_log notice "--n find categories [$page set title] ($state)"
 
-
     foreach cat_id [category::get_mapped_categories [$page set item_id] ] {
       set tree_id [category::get_tree $cat_id]
       array unset cat
@@ -126,7 +125,7 @@
         if {$category_id == $cat_id} break
       }
       foreach level [array names cat] {
-        ns_log notice "--n category $cat($level) $label($level): [$page set title] ($state)"
+        #ns_log notice "--n category $cat($level) $label($level): [$page set title] ($state)"
         notification::new \
             -type_id [notification::type::get_type_id -short_name xowiki_notif] \
             -object_id $cat($level) \