Difference between image version and selection

Question

I am trying to write a script that aperture will execute when I import files.  When I run the script after passing it a selection the script runs perfectly. When I run the script using ImportActionsForVersions which supposedly passes in a list of image versions the script has an issue when I export what I thought is an image version. It seems that there is an issue in the datat type being passed in from aperture vs what I get when I select them myself when I run the code on its own.
Anyone have any thoughts?

Answer 1

Frank,
You actually helped me out a while ago just to get the ImportActionForVersion to work - started small. 
First let me start with experience - I am just starting out with Applescript, I have written a fair amount of software for numerical analyses over the past 30 years. Startedin FORTRAN and then moved to C.  I am somewhat familiar with OO coding but not nearly as familiar as FORTRAN and C.  Applescript appears to me to be something different as well. Powerful but I have no idea what really goes on inside a program like Aperture.
I have read and continue to re-read the Aperture Applescript manual, as well as several other Applescript guides, web resources and books.  I suspect that something hasn't yet sunk in that needs to sink in.
I have not tried the exact example because quite frankly it didn't seem to fit what I wanted to do and I assume it would work just fine, running it wouldn't tell me anyting helpful. Perhaps that is simple minded.  I am guessing that the repeat loop is stepping through individual versions passed in by aperture and the tell block is for each version changing the preset based on the exif tag.
I am hoping that I can loop through image versions in a similar fashion and then for each image version that has a CRW, CR2 or NEF file suffix I can export the file, convert it into a DNG and then reimport the DNG as master. 
The code may not yet be complete but that is the intent and it works reasonably well using "on run".  I'd like this to work so it does this automatically in the future.
So my code is below. Following my code is a sample of the output I am getting in the log file I am writing.
To test this I import a couple of files from a compact flash card into aperture which then calls this script - as the log files indicate the script runs and the statement immediately before export curImg to exportFolder metadata embedded appears to be the last statement executed. Again when I use essentially the same code in a script that starts with on run and is called after I select a couple of pictures in aperture it runs just fine.
property p_dngPath : "/Applications/Adobe DNG Converter.app/Contents/MacOS/Adobe DNG Converter"
property p_dngArgs : " -p1 -c "
property p_rawSuffices : {"crw", "cr2", "nef", "CRW", "CR2", "NEF"}
property doLog_importAction : true
property doLog_checkSetup : false
property firstLog : true
-- ------------------------------------------------------- log_event -------------------------------------------------------------------------------
on importActionForVersions(imageVersionList)
          set tempDir to path to temporary items folder
          set numProc to 0
          set numErr to 0
          set numIgnore to 0
          set numOffline to 0
          set numImage to 0
          set completedFiles to 0
          set theMessage to "Executing importActionForVersion"
  log_event(theMessage, doLog_importAction) of me
          tell application "System Events"
                    set exportFolder to tempDir
                    set theMessage to "exportFolder is " & exportFolder
  log_event(theMessage, doLog_importAction) of me
          end tell
          tell application "Aperture"
                    set numVersions to count of imageVersionList
                    set shouldProceed to checkSetup() of me
                    set theMessage to "-----Starting Convert: " & numVersions & " version(s) passed in and shouldProceed is " & shouldProceed
  log_event(theMessage, doLog_importAction) of me
                    if shouldProceed is true then
                              set theMessage to "----------If shouldProceed: Beginning evaluation of selected images versions"
  log_event(theMessage, doLog_importAction) of me
                              repeat with versionReference in imageVersionList
                                        set curImg to contents of versionReference
                                        set numImage to numImage + 1
                                        set theMessage to "---------------Repeat with: Operating on image version " & numImage & " of " & numVersions
  log_event(theMessage, doLog_importAction) of me
                                        set fileName to value of other tag "FileName" of curImg
                                        set theMessage to "---------------Repeat with: The file filename is " & fileName
  log_event(theMessage, doLog_importAction) of me
                                        set curImgonline to online of curImg
                                        set theMessage to "---------------Repeat with: curImg online " & curImgonline
  log_event(theMessage, doLog_importAction) of me
                                        if online of curImg is true then
                                                  set theMessage to "--------------------if online: curImg " & numImage & " of " & numVersions & " is online"
  log_event(theMessage, doLog_importAction) of me
                                                  set theSuffix to (rich text -3 thru -1 of fileName) as string
                                                  set theMessage to "--------------------if online: The file suffix is " & theSuffix
  log_event(theMessage, doLog_importAction) of me
  -- if the suffix identifies files as needing to be converted
                                                  if p_rawSuffices contains theSuffix then
                                                            set theMessage to "--------------------if p_rawSuffices: p_rawSuffices contains theSuffix " & theSuffix
  log_event(theMessage, doLog_importAction) of me
  -- --------------------------------------------------------------------- determine the image's containing Project
                                                            set srcProjPath to value of other tag "MasterLocation" of curImg
                                                            if srcProjPath contains ">" then
                                                                      tell AppleScript
                                                                                set originalDelimiters to text item delimiters
                                                                                set the text item delimiters to " > "
                                                                                set p_list to text items of srcProjPath
                                                                                set the text item delimiters to originalDelimiters
                                                                                set srcProjName to (item -1 of p_list)
                                                                      end tell
                                                            else
                                                                      set srcProjName to srcProjPath
                                                            end if
                                                            set theProject to project srcProjName
                                                            set theMessage to "--------------------if p_rawSuffices: Source Project Path is " & srcProjPath & " and the project name is " & srcProjName
  log_event(theMessage, doLog_importAction) of me
                                                            set numProc to numProc + 1
                                                            set theMessage to "--------------------if p_rawSuffices: Number Processed is " & numProc
  log_event(theMessage, doLog_importAction) of me
                                                            set theMessage to "--------------------if p_rawSuffices: tempDir is " & tempDir
  log_event(theMessage, doLog_importAction) of me
                                                            set theMessage to "--------------------if p_rawSuffices: curImg is not empty"
  log_event(theMessage, doLog_importAction) of me
  export curImg to exportFolder metadata embedded
  --naming folders with folder naming policy "Project Name"
                                                            set theMessage to "--------------------if p_rawSuffices: curImg was exported"
  log_event(theMessage, doLog_importAction) of me
  --set theRAWs to export curImg to tempDir
                                                            set theMessage to "--------------------if p_rawSuffices: theRAWS have been set"
  log_event(theMessage, doLog_importAction) of me
                                                            set theRAW to item 1 of theRAWs
                                                            set theMessage to "--------------------if p_rawSuffices: theRaw is " & theRAW & "numProc is " & numProc
  log_event(theMessage, doLog_importAction) of me
                                        --          tell application "Finder" to reveal theRAW
                                        set RAWPOSIX to POSIX path of theRAW
                                        set theMessage to "Convert: RawPOSIX Path is " & RAWPOSIX
                                        log_event(theMessage, doLog_importAction) of me
                                        set s_script to ((quoted form of p_dngPath) & space & p_dngArgs & space & (quoted form of RAWPOSIX)) as string
                                        do shell script (s_script)
                                        set DNGPOSIX to ((rich text 1 thru -4 of (RAWPOSIX as string)) & "dng") as string
                                        set theMessage to "Convert: The DNG POSIX Path is " & DNGPOSIX
                                        log_event(theMessage, doLog_importAction) of me
                                        tell application "Finder"
                                                  set theDNG to (POSIX file DNGPOSIX) as alias
                                                  delete theRAW
                                        end tell
                                        set theNewMasters to import {theDNG} by moving into theProject
                                        set theNewMaster to (item 1 of theNewMasters)
                                        -- ---------------------------------------- Copy annotations from curImg to theNewMaster
                                        repeat with curTag in IPTC tags of curImg
                                                  set tagName to name of curTag
                                                  set tagValue to value of curTag
                                                  tell theNewMaster
                                                            try
                                                                      make new IPTC tag with properties {name:tagName, value:tagValue}
                                                            end try
                                                  end tell
                                        end repeat
                                        repeat with curTag in custom tags of curImg
                                                  set tagName to name of curTag
                                                  set tagValue to value of curTag
                                                  tell theNewMaster
                                                            try
                                                                      make new custom tag with properties {name:tagName, value:tagValue}
                                                            end try
                                                  end tell
                                        end repeat
                                                            set theMessage to "--------------------if p_rawSuffices: Finished processing item " & numProc
  log_event(theMessage, doLog_importAction) of me
                                                  else -- No conversion needed
                                                            set numIgnore to numIgnore + 1
                                                            set theMessage to "--------------------if NOT p_rawSuffices: p_rawSuffices DOES NOT contains theSuffix " & theSuffix & "numIgnore= " & numIgnore
  log_event(theMessage, doLog_importAction) of me
                                                  end if -- if Suffix
                                        else
                                                  set numOffline to numOffline + 1
                                                  set theMessage to "---------------if online: curImg " & numImage & " of " & numVersions & "is OFFLINE numOffline files =" & numOffline
  log_event(theMessage, doLog_importAction) of me
                                        end if -- ---------------------- image is online
                                        set completedFiles to completedFiles + 1
                                        set theMessage to "---------------Repeat with: completedFiles " & completedFiles
  log_event(theMessage, doLog_importAction) of me
                              end repeat -- imageVersionList
                              set theMessage to "-----ImportActionsForVersions: Just Finished imageVersionList repeat loop"
  log_event(theMessage, doLog_importAction) of me
                              set theOut to ("Images selected:    " & numVersions & return)
                              set theOut to (theOut & "                   Images ignored:     " & numIgnore & return)
                              set theOut to (theOut & "                   Images processed: " & numProc & return)
                              set theOut to (theOut & "                   Offline images:       " & numOffline & return)
                              set theOut to (theOut & "                   Errors:                   " & numErr)
                              set theMessage to theOut
  log_event(theMessage, doLog_run) of me
  -- display alert "Done!" message theOut
                    else
                              display alert "Error on setup" message "There was an error with your setup. Please verify that you are running Mac OS X 10.5.2 or later and have the Adobe DNG Converter installed in your Applications folder."
                    end if -- ------------------------- shouldProceed
          end tell
end importActionForVersions
-- ------------------------------------------------------- checkSetup -------------------------------------------------------------------------------
on checkSetup()
          set isOK to true
          set theMessage to "Entered checkSetup"
  log_event(theMessage, doLog_checkSetup)
  -- -------------------------------------- Check Mac OS X's version
          tell application "Finder"
                    set theMessage to "checkSetup-1 tell finder"
  log_event(theMessage, doLog_checkSetup) of me
                    set theVers to (get version)
                    considering numeric strings
                              if theVers ≥ "10.5.2" then
                                        set isOK to true
                              else
                                        set isOK to false
                              end if
                    end considering
          end tell
          set theMessage to "checkSetup-1 theVers is " & theVers
  log_event(theMessage, doLog_checkSetup) of me
  -- -------------------------------------- Check for the DNG converter
          tell application "Finder"
                    set theMessage to "checkSetup: tell Finder"
  log_event(theMessage, doLog_checkSetup) of me
                    try
                              set theMessage to "checkSetup: tell trying"
  log_event(theMessage, doLog_checkSetup) of me
                              set theApp to item "Adobe DNG Converter" of folder "Applications" of startup disk
                              set theMessage to "checkSetup: set theApp"
  log_event(theMessage, doLog_checkSetup) of me
                    on error
                              set theMessage to "checkSetup: on error"
  log_event(theMessage, doLog_checkSetup) of me
                              set isOK to false
                              set theMessage to "checkSetup: set isOK" & isOK
  log_event(theMessage, doLog_checkSetup) of me
                    end try
          end tell
          set theMessage to "checkSetup-on exit isOK is " & isOK
  log_event(theMessage, doLog_checkSetup) of me
          return isOK
end checkSetup
-- ------------------------------------------------------- log_event -------------------------------------------------------------------------------
on log_event(theMessage, yesDo)
          if yesDo then
                    set theLine to (do shell script ¬
                              "date +'%Y-%m-%d %H:%M:%S'" as string) ¬
                              & " " & theMessage
                    if firstLog then
                              do shell script "echo " & quoted form of theLine & "> ~/Library/Logs/Aperture_Convert-events.log"
                              set firstLog to false
                    else
                              do shell script "echo " & quoted form of theLine & ">> ~/Library/Logs/Aperture_Convert-events.log"
                    end if
          end if
end log_event
-------- LOG FILE
2012-08-13 20:38:41 Executing importActionForVersion
2012-08-13 20:38:41 exportFolder is Macintosh HD:private:var:folders:rk:24mylhfd1h7dflbsg90x51100000gn:T:TemporaryItems:
2012-08-13 20:38:48 -----Starting Convert: 2 version(s) passed in and shouldProceed is true
2012-08-13 20:38:48 ----------If shouldProceed: Beginning evaluation of selected images versions
2012-08-13 20:38:48 ---------------Repeat with: Operating on image version 1 of 2
2012-08-13 20:38:49 ---------------Repeat with: The file filename is IMG_2025.JPG
2012-08-13 20:38:49 ---------------Repeat with: curImg online true
2012-08-13 20:38:49 --------------------if online: curImg 1 of 2 is online
2012-08-13 20:38:49 --------------------if online: The file suffix is JPG
2012-08-13 20:38:49 --------------------if NOT p_rawSuffices: p_rawSuffices DOES NOT contains theSuffix JPGnumIgnore= 1
2012-08-13 20:38:49 ---------------Repeat with: completedFiles 1
2012-08-13 20:38:50 ---------------Repeat with: Operating on image version 2 of 2
2012-08-13 20:38:50 ---------------Repeat with: The file filename is CRW_2037.CRW
2012-08-13 20:38:50 ---------------Repeat with: curImg online true
2012-08-13 20:38:50 --------------------if online: curImg 2 of 2 is online
2012-08-13 20:38:50 --------------------if online: The file suffix is CRW
2012-08-13 20:38:50 --------------------if p_rawSuffices: p_rawSuffices contains theSuffix CRW
2012-08-13 20:38:50 --------------------if p_rawSuffices: Source Project Path is Untitled Project and the project name is Untitled Project
2012-08-13 20:38:51 --------------------if p_rawSuffices: Number Processed is 1
2012-08-13 20:38:51 --------------------if p_rawSuffices: tempDir is Macintosh HD:private:var:folders:rk:24mylhfd1h7dflbsg90x51100000gn:T:TemporaryItems:
2012-08-13 20:38:51 --------------------if p_rawSuffices: curImg is not empty