Fisheye: Tag 1.1.2.2 refers to a dead (removed) revision in file `openacs-4/packages/contacts/www/bulk-mail.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.2.3 refers to a dead (removed) revision in file `openacs-4/packages/contacts/www/bulk-mail.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.2.2 refers to a dead (removed) revision in file `openacs-4/packages/contacts/www/comment-add.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.2.2 refers to a dead (removed) revision in file `openacs-4/packages/contacts/www/comment-add.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
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.3 -r1.1.2.4
--- openacs-4/packages/contacts/www/contact-ae.tcl	19 Aug 2004 01:21:41 -0000	1.1.2.3
+++ openacs-4/packages/contacts/www/contact-ae.tcl	22 Aug 2004 23:05:42 -0000	1.1.2.4
@@ -68,40 +68,11 @@
 
             if { $object_type == "organization" } {
                 set option_id_temp [lindex $contact_attribute__organization_type 0]
-                db_1row get_organization_type_id {
-                                        select organization_type_id 
-                                          from contact_attribute_options cao,
-                                               organization_types ot
-                                         where cao.option = ot.type
-                                           and cao.option_id  = :option_id_temp
-                                }
+                db_1row get_organization_type_id {}
 
-                db_1row create_org { select organization__new ( 
-                                                       null,
-                                                       :contact_attribute__organization_name,
-                                                       null,
-                                                       :party_id,
-                                                       :organization_type_id,
-                                                       null,
-                                                       null,
-                                                       null,
-                                                       :creation_user,
-                                                       :creation_ip,
-                                                       null
-                                                       ) as party_id }
+                db_1row create_org {}
             } else {
-                db_1row create_person { select person__new (
-                                                            :party_id,
-                                                            'person',
-                                                            now(),
-                                                            :creation_user,
-                                                            :creation_ip,
-                                                            null,
-                                                            null,
-                                                            :contact_attribute__first_names,
-                                                            :contact_attribute__last_name,
-                                                            null
-                                                            ) as party_id }
+                db_1row create_person {}
             }
         }