Index: openacs-4/packages/acs-person/www/add-edit-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/add-edit-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-person/www/add-edit-oracle.xql	24 Sep 2002 05:23:52 -0000	1.1
+++ openacs-4/packages/acs-person/www/add-edit-oracle.xql	26 Sep 2002 03:26:40 -0000	1.2
@@ -3,46 +3,41 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="new_contact">      
+<fullquery name="new_person">      
       <querytext>
       
       declare
         id integer;
       begin
-        id := contact.new (
+        id := person.new (
         family_name     => :family_name,
         given_name      => :given_name,
         middle_name     => :middle_name,
 	formatted_name  => :formatted_name,
 	preferred_given_name => :preferred_given_name,
-	affix           => :affix,
-        suffix          => :suffix,
-        title           => :title,
-        email           => :email,
-        category_id     => :category_id,
-	company_name    => :company_name,
-	company_type_id => :company_type_id,
-        notes           => :notes,
+        acs_user_id     => :acs_user_id,
         creation_user   => :user_id,
         creation_ip     => :peeraddr,
         context_id      => :package_id
         );
 
-        acs_permission.grant_permission(
-          object_id  => id,
-          grantee_id => :user_id,
-          privilege  => 'write'
-        );
-
-        acs_permission.grant_permission (
-          object_id  => id,
-          grantee_id => :user_id,
-          privilege  => 'delete'
-        );
-      end;
-    
       </querytext>
 </fullquery>
 
- 
+<fullquery name="set_person">      
+      <querytext>
+    begin
+        acs_person.set (
+	:given_name,
+        :middle_name,
+        :family_name,
+	:formatted_name,
+	:preferred_given_name,
+	:acs_user_id,
+        :acs_person_id
+    );
+    end;
+
+      </querytext>
+</fullquery> 
 </queryset>
Index: openacs-4/packages/acs-person/www/delete-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/delete-2-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-person/www/delete-2-oracle.xql	24 Sep 2002 05:23:52 -0000	1.1
+++ openacs-4/packages/acs-person/www/delete-2-oracle.xql	26 Sep 2002 03:29:29 -0000	1.2
@@ -3,14 +3,11 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="contact_delete">      
+<fullquery name="person_delete">      
       <querytext>
       
   begin
-    delete from acs_permissions
-    where object_id = :contact_id;
-
-    contact.delete(:contact_id);
+    acs_person.delete(:acs_person_id);
   end;
 
       </querytext>