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 -N -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	17 Mar 2004 00:22:58 -0000	1.9
+++ openacs-4/packages/acs-subsite/tcl/package-procs-oracle.xql	6 Jun 2004 02:28:40 -0000	1.10
@@ -140,12 +140,26 @@
 	select args.argument_name
         from user_arguments args
         where args.position > 0
-	  and args.object_name = upper(:function_name)
+	  and args.object_name = upper(:object_name)
 	  and args.package_name = upper(:package_name)
     
       </querytext>
 </fullquery>
+ 
+<fullquery name="package_function_p.function_p">      
+      <querytext>
 
+	 select 1
+	 from dual
+         where exists (select 1
+	               from user_arguments
+		       where rtrim(package_name) = upper(:package_name)
+		       and rtrim(object_name) = upper(:object_name)
+		       and position = 0)
+    
+      </querytext>
+</fullquery>
+
  
 <fullquery name="package_table_columns_for_type.select_object_type_param_list">      
       <querytext>
@@ -259,11 +273,11 @@
       <querytext>sysdate</querytext>
 </partialquery>
 
-<fullquery name="package_exec_plsql.exec_plsql">      
+<fullquery name="package_exec_plsql.exec_func_plsql">      
       <querytext>
       
     BEGIN
-      :1 := ${package_name}.${function_name}([plsql_utility::generate_attribute_parameter_call \
+      :1 := ${package_name}.${object_name}([plsql_utility::generate_attribute_parameter_call \
 	      -prepend ":" \
 	      -indent [expr [string length $package_name] + 29] \
 	      $pieces]
@@ -273,5 +287,19 @@
       </querytext>
 </fullquery>
 
+<fullquery name="package_exec_plsql.exec_proc_plsql">      
+      <querytext>
+      
+    BEGIN
+      ${package_name}.${object_name}([plsql_utility::generate_attribute_parameter_call \
+	      -prepend ":" \
+	      -indent [expr [string length $package_name] + 29] \
+	      $pieces]
+      );
+    END; 
+    
+      </querytext>
+</fullquery>
+
  
 </queryset>