Index: openacs-4/packages/photo-album/www/photo-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/Attic/photo-move.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/photo-album/www/photo-move.tcl	12 Jun 2003 06:55:45 -0000	1.2
+++ openacs-4/packages/photo-album/www/photo-move.tcl	30 Jun 2003 07:52:26 -0000	1.3
@@ -17,6 +17,7 @@
 }
 set context_list [pa_context_bar_list -final "Move Photo" $photo_id]
 set user_id [ad_conn user_id]
+set root_folder_id [pa_get_root_folder]
 
 # to move a photo need write on photo, and old parent album
 # and pa_create_photo on new parent album (which is check in the is_valid block)