Index: openacs-4/packages/address-book/www/contact-delete-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/contact-delete-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/address-book/www/contact-delete-postgresql.xql	22 Aug 2001 23:11:49 -0000	1.1
+++ openacs-4/packages/address-book/www/contact-delete-postgresql.xql	28 Aug 2001 23:51:54 -0000	1.2
@@ -5,31 +5,28 @@
 
 <fullquery name="delete_ab_contact_rel">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
 
-	begin
-	  ab_contact_rel__delete(:rel_id);
-	end;
+	 select ab_contact_rel__delete(:rel_id);
     
       </querytext>
 </fullquery>
 
  
+<fullquery name="delete_orphan_address_perms">      
+      <querytext>
+
+	 delete from acs_permissions
+         where object_id = :contact_id;
+	
+      </querytext>
+</fullquery>
+ 
 <fullquery name="delete_orphan_address">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
 
-	    begin
-	      -- Delete perms on the contact
-	      delete from acs_permissions
-               where object_id = :contact_id;
-
-	      -- Delete the contact, blowing away orphan addresses.
-	      ab_contact__delete(contact_id => :contact_id,
-	                        delete_orphan_addresses_p => 't');
-	    end;
+	 -- Delete the contact, blowing away orphan addresses.
+	 ab_contact__delete(contact_id => :contact_id,
+	                    delete_orphan_addresses_p => 't');
 	
       </querytext>
 </fullquery>