Index: openacs-4/packages/contacts/www/contact-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/Attic/contact-ae.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/contacts/www/contact-ae.tcl	22 Aug 2004 23:05:42 -0000	1.1.2.4
+++ openacs-4/packages/contacts/www/contact-ae.tcl	22 Aug 2004 23:59:02 -0000	1.1.2.5
@@ -62,6 +62,8 @@
     } -on_submit {
 
 
+        # this should probably be moved into a proc...
+
         if { ![contact::exists_p $party_id] } {
             set creation_user [ad_conn user_id]
             set creation_ip [ad_conn peeraddr]