Index: openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql	22 Aug 2003 15:06:30 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs-oracle.xql	25 Aug 2003 13:46:41 -0000	1.4
@@ -26,10 +26,20 @@
       </querytext>
 </fullquery>
 
+<fullquery name="acs_user::delete.permanent_delete">
+      <querytext>
+          begin
+              acs_user.delete(
+                  user_id => :user_id
+              );
+          end;
+      </querytext>
+</fullquery>
+
 <fullquery name="person::delete.delete_person">      
       <querytext>
 
-	    select person.delete(:person_id);
+	    select person.delete(:person_id) from dual;
 	
       </querytext>
 </fullquery>