Index: openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	17 Mar 2004 00:22:58 -0000	1.13
+++ openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	6 Jun 2004 02:28:40 -0000	1.14
@@ -157,9 +157,15 @@
       <querytext>
 	select args.arg_name
         from acs_function_args args
-        where args.function = upper(:package_name) || '__' || upper(:function_name)
+        where args.function = upper(:package_name) || '__' || upper(:object_name)
       </querytext>
 </fullquery>
+
+<fullquery name="package_function_p.function_p">      
+      <querytext>
+	 select 1
+      </querytext>
+</fullquery>
  
 <fullquery name="package_create.package_valid_p">      
       <querytext>
@@ -260,12 +266,12 @@
       <querytext>now()</querytext>
 </partialquery>
 
-<fullquery name="package_exec_plsql.exec_plsql">      
+<fullquery name="package_exec_plsql.exec_func_plsql">      
       <querytext>
 
-	select ${package_name}__${function_name}([plpgsql_utility::generate_attribute_parameter_call \
+	select ${package_name}__${object_name}([plpgsql_utility::generate_attribute_parameter_call \
 		-prepend ":" \
-		${package_name}__${function_name} \
+		${package_name}__${object_name} \
 		$pieces])
 
       </querytext>