Swap Home/Work addresses

[Barry Wainwright]

Title: Swap Home/Work addresses

I've seen this mentioned a few times by people who have imported existing address databases into E'rage.

All the addresses end up in the 'Work' fields. I looked at Applescript Central for a script to swap the addresses over, but couldn't find one, so here is one available for anyone that wants it:

--script ‘Swap Home/Work Addresses
-- by Barry Wainwright  <[EMAIL PROTECTED]>
set theContact to the «class pusl»
if (count of theContact) > 1 or class of item 1 of theContact is not «class cAbE» then
    display dialog "Please select just ONE contact before running this script" buttons {"Quit"} default button 1
    return
end if
set theAddresses to {«class hmAd», «class bsAd»} of item 1 of theContact
set (item 1 of theContact)'s «class hmAd» to (item 2 of theAddresses)
set (item 1 of theContact)'s «class bsAd» to (item 1 of theAddresses)

--
=Barry Wainwright=
<http://homepage.mac.com/barryw>

"Ask a question and you're a fool for three minutes; do not ask a question  and you're a fool for the rest of your life."    - Chinese proverb