Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v diff -u -N -r1.109 -r1.110 --- openacs-4/packages/contacts/tcl/contacts-procs.tcl 12 Jun 2007 10:34:47 -0000 1.109 +++ openacs-4/packages/contacts/tcl/contacts-procs.tcl 12 Jun 2007 13:12:47 -0000 1.110 @@ -139,15 +139,13 @@ foreach group_id $default_groups { if {[group::party_member_p -party_id $person_id -group_id $group_id]} { - ns_log notice "contacts::sweeper creating content_item and content_revision for party_id: $person_id" set contact_revision_id [contact::revision::new -party_id $person_id -package_id $contact_package($group_id)] break } } if {![exists_and_not_null contact_revision_id]} { # We did not found a group, so just use the first contacts instance. - ns_log notice "contacts::sweeper creating content_item and content_revision for party_id: $person_id" if {[ad_conn isconnected]} { set user_id [ad_conn user_id] set peeraddr [ad_conn peeraddr] @@ -167,12 +165,12 @@ # And insert into the default group for this package. group::add_member -user_id $person_id -group_id $default_group_id -no_perm_check + ns_log notice "contacts::sweeper creating content_item and content_revision for party_id: $person_id in $default_group_id" } db_foreach get_organizations_without_items {} { foreach group_id $default_groups { if {[group::party_member_p -party_id $organization_id -group_id $group_id]} { - ns_log notice "contacts::sweeper creating content_item and content_revision for party_id: $organization_id" contact::revision::new -party_id $organization_id -package_id $contact_package($group_id) -creation_user 0 break }