Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	28 May 2006 01:50:21 -0000	1.43
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	29 May 2006 21:50:18 -0000	1.44
@@ -875,11 +875,9 @@
     {-object_type}
 } {
 } {
-    ns_log notice "starting groups impl"
     set groups_list [list]
     foreach group [contact::groups_list -package_id $package_id] {
 	util_unlist $group group_id group_name member_count component_count mapped_p default_p
-	# ns_log notice "$mapped_p $group_name"
 	if { [string is true $mapped_p] } {
 	    if { [permission::permission_p -object_id $group_id -party_id $user_id -privilege "read"] } {
 		lappend groups_list [list $group_id $group_name]
@@ -893,7 +891,6 @@
 	    template::multirow append $multirow groups groups $groups_pretty $group_id $group_name
 	}
     }
-    ns_log notice "ending groups impl..."
 }
 
 ad_proc -public -callback contacts::redirect -impl contactspdfs {