Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.156.2.7 -r1.156.2.8
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Jun 2003 17:10:18 -0000	1.156.2.7
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	12 Jun 2003 01:33:30 -0000	1.156.2.8
@@ -2307,7 +2307,6 @@
 
 }
 
-
 ad_proc -private portal::datasource_new {
     {-name:required}
     {-description:required}
@@ -2318,7 +2317,6 @@
 } {
     return [db_exec_plsql new_datasource {}]
 }
-
 ad_proc -private portal::datasource_set_def_param {
     {-datasource_id:required}
     {-config_required_p:required}
@@ -2333,4 +2331,20 @@
     db_exec_plsql set_def_param {}
 }
 
+ad_proc -private portal::datasource_delete {
+    {-name:required}
+} {
 
+    @author Don Baccus (dhogaza@pacifier.com)
+
+} {
+
+    if { ![db_0or1row get_datasource_id {}] } {
+        ad_return -code error "Datasource \"$name\" does not exist"
+    }
+
+    return [db_exec_plsql delete_datasource {}]
+
+}
+
+