Copy the Aperture Version Name to the IPTC ObjectName (Title field in Aperture)

setTitleToVersionName.applescript

-- Copy the Aperture Version Name to the IPTC ObjectName (Title field in Aperture)

tell application "Aperture"
  set selectedImages to (get selection)
  if selectedImages is {} then
    error "Please select an image."
  else
    repeat with i from 1 to count of selectedImages
      tell library 1
        tell item i of selectedImages
          set versionName to (get value of other tag "VersionName") as string
          log versionName
          make new IPTC tag with properties {name:"ObjectName", value:versionName}
        end tell
      end tell
    end repeat
  end if
end tell