Index: openacs-4/packages/contacts/www/history.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/history.tcl,v diff -u -N --- openacs-4/packages/contacts/www/history.tcl 8 Jul 2005 00:26:33 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,19 +0,0 @@ -ad_page_contract { - - @author Matthew Geddert openacs@geddert.com - @creation-date 2005-07-09 - @cvs-id $Id: history.tcl,v 1.1 2005/07/08 00:26:33 matthewg Exp $ - - -} { - {party_id:integer} - {page "comments"} -} -validate { - contact_exists -requires {party_id} { - if { ![contact::exists_p -party_id $party_id] } { - ad_complain "[_ contacts.lt_The_contact_specified]" - } - } -} - -ad_return_template