Index: openacs-4/packages/photo-album/www/album-move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/album-move.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/photo-album/www/album-move.tcl 12 Jun 2003 06:55:45 -0000 1.2 +++ openacs-4/packages/photo-album/www/album-move.tcl 18 Nov 2003 18:27:52 -0000 1.3 @@ -11,11 +11,11 @@ } -validate { valid_album -requires {album_id:integer} { if [string equal [pa_is_album_p $album_id] "f"] { - ad_complain "The specified album is not valid." + ad_complain "[_ photo-album._The_1]" } } } -set context_list [pa_context_bar_list -final "Move Album" $album_id] +set context_list [pa_context_bar_list -final "[_ photo-album._Move]" $album_id] set user_id [ad_conn user_id] # to move an album need write on album, and old parent folder @@ -38,7 +38,7 @@ # options query retreive all folders in package that user can add an album to set root_folder_id [pa_get_root_folder] -template::element create move_album new_folder_id -label "Choose New Folder for Album" \ +template::element create move_album new_folder_id -label "[_ photo-album._Choose]" \ -datatype integer -widget select \ -options [db_list_of_lists get_folders "select lpad ('   ',((level - 1) * 18),'   ') || content_folder.get_label(ci.item_id) as padded_name, @@ -96,11 +96,9 @@ from cr_items where name = :folder_name and parent_id = :new_folder_id"] { - ad_return_complaint 1 "Either there is already an album in the specified folder with the name \"$folder_name\" or you clicked on the button more than once. You can return to the new folder to see if your album is there." + ad_return_complaint 1 "[_ photo-album._Either_1]" } else { - ad_return_complaint 1 "We got an error that we couldn't readily identify. Please let the system owner know about this. - -
$errmsg
" + ad_return_complaint 1 "[_ photo-album._We]" } ad_script_abort