Index: openacs-4/packages/photo-album/www/photo-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photo-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/photo-album/www/photo-oracle.xql	12 Jun 2003 06:55:45 -0000	1.1
+++ openacs-4/packages/photo-album/www/photo-oracle.xql	21 Jan 2005 17:37:17 -0000	1.2
@@ -36,5 +36,18 @@
       </querytext>
 </fullquery>
 
+<fullquery name="get_albums">       
+      <querytext> 
+    select r.title as name, i.item_id 
+    from cr_items i left outer join cr_revisions r on (live_revision = revision_id)
+    where
+      acs_permission.permission_p(i.item_id, :user_id, 'pa_create_photo') = 't' 
+      and i.content_type = 'pa_album' 
+      and i.item_id != :old_album_id 
+      start with i.item_id = :root_folder_id
+      connect by i.parent_id = prior i.item_id
+    order by i.item_id
+      </querytext> 
+</fullquery> 
  
 </queryset>