Index: openacs-4/packages/contacts/lib/contact-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-master.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/lib/contact-master.tcl 18 May 2005 16:47:47 -0000 1.1 +++ openacs-4/packages/contacts/lib/contact-master.tcl 19 May 2005 16:45:52 -0000 1.2 @@ -1,3 +1,7 @@ +# @author Matthew Geddert openacs@geddert.com +# @creation-date 2005-05-09 +# @cvs-id $Id$ + if { ![contact::exists_p -party_id $party_id] } { ad_complain "The contact specified does not exist" }