Index: openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql	21 Aug 2002 15:22:39 -0000	1.9
+++ openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql	23 May 2003 12:23:35 -0000	1.9.2.1
@@ -177,4 +177,25 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::datasource_new.new_datasource">
+        <querytext>
+             select portal_datasource__new(
+    		:name,
+    		:description     
+  	     )
+        </querytext>
+    </fullquery>
+
+    <fullquery name="portal::datasource_set_def_param.set_def_param">
+        <querytext>
+            select portal_datasource__set_def_param(
+		:datasource_id,
+		:config_required_p,
+		:configured_p, 
+		:key, 
+		:value
+	    )
+        </querytext>
+    </fullquery>
+
 </queryset>
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.5 -r1.156.2.6
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	6 May 2003 20:45:55 -0000	1.156.2.5
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 May 2003 12:23:36 -0000	1.156.2.6
@@ -2307,8 +2307,31 @@
     }
 
 }
- 
 
 
+ad_proc -private portal::datasource_new {
+    {-name:required}
+    {-description:required}
+} {
 
+    @author Simon Carstensen (simon@bcuni.net)
 
+} {
+    return [db_exec_plsql new_datasource {}]
+}
+
+ad_proc -private portal::datasource_set_def_param {
+    {-datasource_id:required}
+    {-config_required_p:required}
+    {-configured_p:required}
+    {-key:required}
+    {-value:required}
+} {
+
+    @author Simon Carstensen (simon@bcuni.net)
+
+} {
+    db_exec_plsql set_def_param {}
+}
+
+