Index: openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	30 Sep 2003 12:10:03 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	3 Jan 2004 01:44:10 -0000	1.7
@@ -134,6 +134,19 @@
 </fullquery>
 
  
+<fullquery name="package_plsql_args.select_package_func_param_list">      
+      <querytext>
+
+	select args.argument_name
+        from user_arguments args
+        where args.position > 0
+	  and args.object_name = upper(:function_name)
+	  and args.package_name = upper(:package_name)
+    
+      </querytext>
+</fullquery>
+
+ 
 <fullquery name="package_table_columns_for_type.select_object_type_param_list">      
       <querytext>
       
@@ -246,5 +259,19 @@
       <querytext>sysdate</querytext>
 </partialquery>
 
+<fullquery name="package_exec_plsql.exec_plsql">      
+      <querytext>
+      
+    BEGIN
+      :1 := ${package_name}.${plsql_name}([plsql_utility::generate_attribute_parameter_call \
+	      -prepend ":" \
+	      -indent [expr [string length $package_name] + 29] \
+	      $pieces]
+      );
+    END; 
+    
+      </querytext>
+</fullquery>
+
  
 </queryset>