Index: openacs-4/packages/acs-content-repository/tcl/folder-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/folder-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/folder-procs-oracle.xql	6 May 2004 12:57:28 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+ 
+<fullquery name="folder::delete.delete_folder">
+      <querytext>
+            begin
+            content_folder.delete(:folder_id);
+            end;
+      </querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-content-repository/tcl/folder-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/folder-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/folder-procs-postgresql.xql	6 May 2004 12:57:28 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="folder::delete.delete_folder">
+      <querytext>
+        select content_folder__delete(:folder_id)
+      </querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-content-repository/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/folder-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/folder-procs.tcl	6 May 2004 12:57:28 -0000	1.1
@@ -0,0 +1,20 @@
+ad_library {
+    Procedures in the folder namespace related to content folders.
+
+    @author Peter Marklund
+    @cvs-id $Id: folder-procs.tcl,v 1.1 2004/05/06 12:57:28 peterm Exp $
+}
+
+namespace eval folder {}
+
+ad_proc -public folder::delete {
+    {-folder_id:required}
+} {
+    Delete a content folder. If the folder
+    to delete has children content items referencing it
+    via acs_objects.context_id then this proc will fail.
+
+    @author Peter Marklund
+} {
+    db_exec_plsql delete_folder {}
+}