Portfolio 6.1: Add Original Filename to Description

This script tells Portifolio 6.1 to add the original filename of the selected files in the front gallery to the file description. (Can be used for keeping original filename when putting files in numeric register, etc.)

-Martin

tell application "Extensis Portfolio 6.1"
	set theCount to count every record of the selection of front gallery
	repeat with i from 1 to theCount
		set filepath to field "Path" of record i of the selection of ¬
			front gallery
		tell application "Extensis Portfolio 6.1"
			set field "Description" of record i of the selection of ¬
				front gallery to get name of record i of the selection of front gallery
		end tell
	end repeat
end tell