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 -r1.20 -r1.21
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	13 Jan 2005 13:55:49 -0000	1.20
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	18 Jan 2005 12:13:19 -0000	1.21
@@ -908,17 +908,6 @@
 
 }
 
-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