Index: openacs-4/packages/photo-album/www/photo-move-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/Attic/photo-move-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/photo-album/www/photo-move-oracle.xql	10 Jun 2003 10:07:11 -0000	1.1
+++ openacs-4/packages/photo-album/www/photo-move-oracle.xql	30 Jun 2003 07:52:26 -0000	1.2
@@ -5,13 +5,14 @@
 
 <fullquery name="get_albums">      
       <querytext>
-      select r.title as name, i.item_id
+    select r.title as name, i.item_id
     from cr_items i, cr_revisions r
     where i.live_revision = r.revision_id
-      and i.parent_id = (select parent_id from cr_items where item_id = :old_album_id)
-      and acs_permission.permission_p(i.item_id, :user_id, 'read') = 't'
+      and 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
+    connect by prior i.item_id = i.parent_id
+    start with i.item_id = :root_folder_id
       </querytext>
 </fullquery>