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.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/apm-procs.xql	24 Apr 2001 22:38:12 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.xql	27 Apr 2001 01:41:12 -0000	1.3
@@ -1,6 +1,15 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="apm_package_version_enabled_p.apm_package_version_installed_p">
+      <querytext>
+
+	select case when count(*) > 0 then 0 else 1 end from apm_package_versions
+	where version_id = :version_id
+	and enabled_p = 't'
+      </querytext>
+</fullquery>
+
 <fullquery name="apm_mark_version_for_reload.package_key_select">      
       <querytext>
       select package_key from apm_package_version_info where version_id = :version_id