Index: openacs-4/packages/contacts/www/bulk-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/bulk-update.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/www/bulk-update.tcl	16 Jul 2005 20:14:16 -0000	1.5
+++ openacs-4/packages/contacts/www/bulk-update.tcl	16 Sep 2005 15:21:44 -0000	1.6
@@ -25,7 +25,7 @@
 set recipients [list]
 if { [exists_and_not_null party_id] } {
     foreach party_id $party_id {
-        if { [contact::person_p -party_id $party_id] } {
+        if { [person::person_p -party_id $party_id] } {
             lappend person_ids $party_id
         } else {
             lappend organization_ids $party_id