Index: openacs-4/packages/photo-album/www/photo.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photo.tcl,v diff -u -N -r1.8 -r1.8.2.1 --- openacs-4/packages/photo-album/www/photo.tcl 3 May 2004 13:13:56 -0000 1.8 +++ openacs-4/packages/photo-album/www/photo.tcl 2 Dec 2005 09:34:15 -0000 1.8.2.1 @@ -94,14 +94,15 @@ # if we did get a photo, and we need html source, get some info about the thumbnail db_0or1row get_thumbnail_info { *SQL* } } + set path $image_id } -set path $image_id + # to move a photo need write on photo and write on parent album set move_p [expr $write_p && $album_write_p] # build form to move the photo if move_p is 1