Change iPhoto to Photoshop back to iPhoto batch script

Question

Hi,
I am completely clueless about scripting. I found a great script at http://www.macdevcenter.com/pub/a/mac/2003/05/28/iphoto2.html for taking a batch of pics in iPhoto, having them open in Photoshop and run an action, and then save. The person who wrote the script deliberately wrote it for the pics to not save back into the modified file and overwrite. That is what I want them to do so my watermark shows on my pics in iPhoto. The way the script is written, I have to save the modified pics somewhere else, then go into the folder and drag and drop them into my iPhoto Library. I'm positive there has to be a way to cut that out and just save back into iPhoto. Here is the script, any help on what to change in it would be appreciated. Oh, and in my Photoshop action I have it set to flatten and then save the way I want, but it won't do it based on the following script.
Thanks,
Robin
Script:
property default_action : "Watermark"
property default_set : "Watermark"
tell application "iPhoto"
activate
try
set the view to organize
copy (my selected_images()) to these_images
if these_images is false then error "Please select some images before using this script."
repeat
display dialog "Do Photoshop Action" & return & return & "This script will perform the indicated Photoshop action on the selected images." & return & return & "Default Action: " & default_action & return & "Action Set: " & default_set buttons {"Cancel", "Set Prefs", "Continue"} default button 3
set the user_choice to the button returned of the result
if the user_choice is "Continue" then
exit repeat
else
-- prompt to set the action
display dialog "Enter the name of the action to play." & return & return & "Note that the case of letters in the Action name is important and must match the case of the name in the Photoshop Actions palette." default answer default_action buttons {"Set", "Skip"} default button 2
copy the result as list to {text_returned, button_pressed}
if the button_pressed is "Set" then set default_action to (the text_returned) as string
-- prompt to set the action set
display dialog "Enter the name of the action set containing the action being played." & return & return & "Note that the case of letters in the Action Set name is important and must match the case of the name in the Photoshop Actions palette." default answer default_set buttons {"Set", "Skip"} default button 2
copy the result as list to {text_returned, button_pressed}
if the button_pressed is "Set" then set default_set to (the text_returned) as string
end if
end repeat
set the target_folder to (choose folder with prompt "Choose a destination folder for the duplicated images:") as string
set these_files to {}
repeat with i from 1 to the count of these_images
set this_image to item i of these_images
-- get image paths and convert POSIX paths to alias references
set this_file to the image path of this_image
set this_file to (this_file as POSIX file) as alias
set the end of these_files to this_file
end repeat
on error error_message number error_number
if the error_number is not -128 then
display dialog error_message buttons {"OK"} default button 1
end if
return "user cancelled"
end try
end tell
tell application "Adobe Photoshop CS2"
activate
try
set display dialogs to never
set the processed_images to {}
repeat with i from 1 to the count of these_files
set this_file to item i of these_files
close every document saving no
open this_file showing dialogs never
set the doc_name to the name of the current document
set the target_file to (target_folder & doc_name)
save current document in file target_file as JPEG
do action default_action from default_set
flatten current document
save current document
close current document saving no
set the end of the processed_images to ((file target_file) as alias)
end repeat
on error error_message
display dialog error_message buttons {"Cancel"} default button 1
end try
end tell
on selected_images()
tell application "iPhoto"
try
-- get selection
set these_items to the selection
-- check for single album selected
if the class of item 1 of these_items is album then error
-- return the list of selected photos
return these_items
on error
return false
end try
end tell
end selected_images

Answer 1

I'm still a little puzzled as to your saying you don't see these options. I went back to the previous version of iphoto, but I don't remember not seeing these: