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