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
 } {
Index: openacs-4/packages/acs-tcl/tcl/apm-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/apm-procs.xql	13 Jan 2003 19:14:16 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.xql	13 Jan 2003 19:18:28 -0000	1.8
@@ -115,6 +115,14 @@
       and installed_p = 't'
     </querytext>
   </fullquery>
+
+  <fullquery name="apm_package_enabled_p.apm_package_enabled_p">      
+    <querytext>
+      select 1 from apm_package_versions
+      where package_key = :package_key
+      and enabled_p = 't'
+    </querytext>
+  </fullquery>
   
   <fullquery name="apm_version_installed_p.apm_version_installed_p">      
     <querytext>