I haven't run procrastinatr, but I imagine to correct the event times you would want to set the STARTTIME back one week first, and THEN set the ENDTIME back one week, not the other way around.
So it should be this:
set timeBack to (-1 * weeks) tell application "iCal" activate repeat with allCals in calendars repeat with myEvent in events of allCals set (start date of myEvent) to ((start date of myEvent) + (my timeBack)) set (end date of myEvent) to ((end date of myEvent) + (my timeBack)) end repeat repeat with myTodo in todos of allCals if (due date of myTodo exists) and not (completion date of myTodo exists) then set due date of myTodo to (due date of myTodo) + timeBack end if end repeat end repeat end tell
Joystiq hands-on: NBA Street Homecourt (PS3/Xbox 360)
Jan 30th 2007 3:46PM (Joystiq)Tetris necklace
Jan 26th 2007 10:23AM (Joystiq)That's not a Tetris piece! Fakers!
Boo!!!!!
A fix for the Procrastinatr damage
Jun 21st 2006 6:24PM (TUAW.com)I think it's important to note how quickly he responded to the problem.
DON'T USE PROCRASTINATR
Jun 21st 2006 5:04PM (TUAW.com)So it should be this:
set timeBack to (-1 * weeks)
tell application "iCal"
activate
repeat with allCals in calendars
repeat with myEvent in events of allCals
set (start date of myEvent) to ((start date of myEvent) + (my timeBack))
set (end date of myEvent) to ((end date of myEvent) + (my timeBack))
end repeat
repeat with myTodo in todos of allCals
if (due date of myTodo exists) and not (completion date of myTodo exists) then
set due date of myTodo to (due date of myTodo) + timeBack
end if
end repeat
end repeat
end tell