Batch-Change Aperture Keywords

Question

Does anyone known of a script that can convert the iPhoto keywords to normal Aperture keywords?
There seems to also be an issue if I re-classify a keyword in the Keyword HUD, there ends up being 2 versions of the keyword in the search HUD because some images are tagged with Family>Dad and some are tagged with Family>Parents>Dad.
I want to be able to update all the photos that have Family>Dad and change them all to Family>Parents>Dad.

Answer 1

Thanks. That script helped and it gave me an idea for another way of doing it.
1. Add the offending iPhoto keyword manually to the Keyword HUD (create a top-level keyword iPhoto and create the keyword under it).
2. Create a smart album doing a search for the offending keyword (say, Pets (iPhoto)
3. Create a keyword button set containing both the offending keyword and the new keyword (make sure you know which is ordered first because the buttons will not show the distinction)
4. select all the images in the smart album
5. Add the new desired keyword to all the images
6. Shift-click the offending keyword to remove it from all the images
For reference, the apple script that does the same thing is below (adapted from the script posted in the other thread):
<pre>
tell application "Aperture"
-- set the target to the smart album "Test" at the top level of the library.
tell album "Test" of folder ""
-- get a list of the images in the album.
set x to every image version
-- move through the images one by one, deleting and creating the appropriate keywords
repeat with i from 1 to x's length
tell x's item i
-- Note. if the keyword is top level, then the parents value is "".
-- Note, multiple parents should be in ascending order, for example: "Image type Photo specs" for the Action keyword
delete (every keyword whose name is "Pets" and parents is "iPhoto")
make new keyword with properties {name:"Pets", parents:"Family Personal"}
end tell
end repeat
end tell
end tell
</pre>
G5 Dual 2.5GHz, iMac 2GHz Core Duo   Mac OS X (10.4.6)   Nokia 3650, Nikon D50