Index: openacs-4/packages/acs-admin/www/apm/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/index.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/apm/index.xql	13 May 2001 14:30:00 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/index.xql	30 Nov 2002 17:13:06 -0000	1.4
@@ -1,16 +1,24 @@
 <?xml version="1.0"?>
 <queryset>
 
-<partialquery name="apm_application">
-   <querytext>
+  <fullquery name="email_by_user_id">
+    <querytext>
+      select email  
+      from parties 
+      where party_id = :user_id
+    </querytext>
+  </fullquery>
+
+  <partialquery name="apm_application">
+    <querytext>
       t.package_type = 'apm_application'
-   </querytext>
-</partialquery>
+    </querytext>
+  </partialquery>
 
-<partialquery name="everyone">
-   <querytext>
+  <partialquery name="everyone">
+    <querytext>
       exists (select 1 from apm_package_owners o where o.version_id = v.version_id and owner_uri='mailto:$my_email')
-   </querytext>
-</partialquery>
- 
+    </querytext>
+  </partialquery>
+  
 </queryset>