Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	6 Jun 2004 02:28:40 -0000	1.19
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	13 Jan 2005 13:55:49 -0000	1.20
@@ -907,6 +907,18 @@
     return $object_id
 
 }
+
+ad_proc -public package_function_p {
+  package_name
+  function_name
+} {
+    Returns 0 if the given function is a procedure, 1 if a function.  Always
+    returns 1 in the Postgres version.  Broken out into its own function so we
+    can util_memoize it.
+} {
+    return [db_string function_p {}]
+}
+
 ad_proc -public package_exec_plsql {
     { -var_list "" }
     package_name