Index: openacs-4/packages/new-portal/sql/oracle/api-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/sql/oracle/api-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	2 Oct 2001 21:22:58 -0000	1.7
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	3 Oct 2001 18:05:42 -0000	1.8
@@ -284,6 +284,16 @@
 	procedure delete (
 		datasource_id	in portal_datasources.datasource_id%TYPE
 	);
+
+	procedure set_def_param (
+		datasource_id		in portal_datasource_def_params.datasource_id%TYPE,
+		config_required_p	in portal_datasource_def_params.config_required_p%TYPE default null,
+		configured_p		in portal_datasource_def_params.configured_p%TYPE default null,
+		key			in portal_datasource_def_params.key%TYPE,
+		value			in portal_datasource_def_params.value%TYPE default null,
+	);
+
+
 end portal_datasource;
 /
 show errors
@@ -349,6 +359,26 @@
 		acs_object.delete(datasource_id);
 	end delete;
 
+	procedure set_def_param (
+		datasource_id		in portal_datasource_def_params.datasource_id%TYPE,
+		config_required_p	in portal_datasource_def_params.config_required_p%TYPE default null,
+		configured_p		in portal_datasource_def_params.configured_p%TYPE default null,
+		key			in portal_datasource_def_params.key%TYPE,
+		value			in portal_datasource_def_params.value%TYPE default null,
+	)
+	is
+		v_parameter_id  portal_datasource_def_params.parameter_id%TYPE;
+	begin
+		v_parameter_id := select acs_object_id_seq.nextval from dual;
+		    
+		insert into portal_datasource_def_params
+			(parameter_id, datasource_id, config_required_p, configured_p, key, value)
+		values
+			(v_parameter_id, datasource_id, config_required_p, configured_p, key, value)
+		return v_datasource_id;		    
+
+
+
 end portal_datasource;
 /
 show errors
