Index: openacs-4/packages/contacts/www/changes.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/changes.tcl,v diff -u -N --- openacs-4/packages/contacts/www/changes.tcl 13 Sep 2005 15:37:09 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,17 +0,0 @@ -ad_page_contract { - - @author Miguel Marin (miguelmarin@viaro.net) - @author Viaro Networks www.viaro.net - @creation-date 2005-09-12 -} { - {party_id:integer} - {revision_id:integer "" } -} -validate { - contact_exists -requires {party_id} { - if { ![contact::exists_p -party_id $party_id] } { - ad_complain "[_ contacts.lt_The_contact_specified]" - } - } -} - -ad_return_template