Index: openacs-4/packages/contacts/lib/comments.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/comments.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/lib/comments.tcl 18 May 2005 16:47:47 -0000 1.1 +++ openacs-4/packages/contacts/lib/comments.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 { [string is false [contact::exists_p -party_id $party_id]] } { error "The party_id specified does not exist" }