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.6 -r1.6.2.1 --- openacs-4/packages/photo-album/www/photo.tcl 26 Jan 2004 15:39:48 -0000 1.6 +++ openacs-4/packages/photo-album/www/photo.tcl 14 Apr 2004 14:10:45 -0000 1.6.2.1 @@ -44,6 +44,9 @@ set context [pa_context_bar_list $photo_id] set root_folder_id [pa_get_root_folder] +set system_url [ad_url] +set node_url [site_node::get_url -node_id [ad_conn node_id]] + # 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)