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 -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/photo-album/www/photo.tcl 3 Dec 2003 22:52:33 -0000 1.2.2.1 +++ openacs-4/packages/photo-album/www/photo.tcl 17 Dec 2003 20:22:40 -0000 1.2.2.2 @@ -50,9 +50,13 @@ set old_album_id [db_string get_parent_album {}] -ad_require_permission $photo_id write -ad_require_permission $old_album_id write +set write_p [permission::permission_p -object_id $photo_id \ + -party_id $user_id \ + -privilege "write"] +set album_write_p [permission::permission_p -object_id $old_album_id \ + -party_id $user_id \ + -privilege "write"] # These lines are to uncache the image in Netscape, Mozilla. # IE6 & Safari (mac) have a bug with the images cache @@ -121,13 +125,13 @@ # not using content_item move because is only accepts # a folder_id as target not another content_item -7 + set rel_id [db_string photo_rel_id {}] db_dml photo_move {} - + db_dml photo_move2 {} - + db_dml context_update {} } on_error {