Index: openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql,v
diff -u -N -r1.20 -r1.20.2.1
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	21 Aug 2002 15:22:39 -0000	1.20
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	12 Jun 2003 01:33:30 -0000	1.20.2.1
@@ -174,4 +174,39 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::datasource_new.new_datasource">
+        <querytext>
+           begin
+             :1 := portal_datasource.new(
+    		     name => :name,
+    		     description => :description     
+  	     );
+           end;
+        </querytext>
+    </fullquery>
+
+    <fullquery name="portal::datasource_set_def_param.set_def_param">
+        <querytext>
+           begin
+             :1 := portal_datasource.set_def_param(
+		     datasource_id => :datasource_id,
+		     config_required_p => :config_required_p,
+		     configured_p => :configured_p, 
+		     key => :key, 
+		     value => :value
+	     ):
+           end;
+        </querytext>
+    </fullquery>
+
+    <fullquery name="portal::datasource_delete.delete_datasource">
+        <querytext>
+           begin
+             portal_datasource.delete(
+               datasource_id => :datasource_id
+  	     );
+           end;
+        </querytext>
+    </fullquery>
+
 </queryset>