Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	13 Jan 2003 19:14:16 -0000	1.27
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	13 Jan 2003 19:18:28 -0000	1.28
@@ -536,6 +536,15 @@
     return [db_string apm_package_installed_p {} -default 0]
 }
 
+ad_proc -public apm_package_enabled_p {
+    package_key
+} {
+    Returns 1 if there is an enabled package version corresponding to the package_key
+    and 0 otherwise.
+} {
+    return [db_string apm_package_enabled_p {} -default 0]
+}
+
 ad_proc -public apm_version_installed_p {
     version_id
 } {