Time and iCal

Question

I am building an applescript to place some events in my calendar every week. The finished product will not place the event on every day according to the results of filtering the calendar for other events in that week. I am stuck on the placement procedure because the script seems to be working as I intended ( when you read the log ), but the events are all getting piled up in iCal on the day the script runs. Any ideas? Here are the script and the log:
Script:
tell application "iCal"
set myCalendar to "Home"
set today to current date
tell calendar myCalendar
make new todo at end of todos with properties {due date:(today + (7 * days)), summary:"My Todo"}
set n to 7
repeat while n > 0
set todaystime to (time of today) as integer
set starttime to (today + (n * days)) - todaystime + (17 * hours)
set endtime to (today + (n * days)) - todaystime + (17 * hours) + (15 * minutes)
make new event at end of events with properties ¬
{startdate:starttime, enddate:endtime, summary:"My Event"}
set n to n - 1
end repeat
end tell
(*view calendar myCalendar at today*)
end tell
Log:
tell application "iCal"
current date
make new todo at end of every todo of calendar "Home" with properties {due date:date "Tuesday, September 12, 2006 5:15:06 PM", summary:"My Todo"}
make new event at end of every event of calendar "Home" with properties {summary:"My Event", startdate:date "Tuesday, September 12, 2006 5:00:00 PM", enddate:date "Tuesday, September 12, 2006 5:15:00 PM"}
make new event at end of every event of calendar "Home" with properties {summary:"My Event", startdate:date "Monday, September 11, 2006 5:00:00 PM", enddate:date "Monday, September 11, 2006 5:15:00 PM"}
make new event at end of every event of calendar "Home" with properties {summary:"My Event", startdate:date "Sunday, September 10, 2006 5:00:00 PM", enddate:date "Sunday, September 10, 2006 5:15:00 PM"}
make new event at end of every event of calendar "Home" with properties {summary:"My Event", startdate:date "Saturday, September 9, 2006 5:00:00 PM", enddate:date "Saturday, September 9, 2006 5:15:00 PM"}
make new event at end of every event of calendar "Home" with properties {summary:"My Event", startdate:date "Friday, September 8, 2006 5:00:00 PM", enddate:date "Friday, September 8, 2006 5:15:00 PM"}
make new event at end of every event of calendar "Home" with properties {summary:"My Event", startdate:date "Thursday, September 7, 2006 5:00:00 PM", enddate:date "Thursday, September 7, 2006 5:15:00 PM"}
make new event at end of every event of calendar "Home" with properties {summary:"My Event", startdate:date "Wednesday, September 6, 2006 5:00:00 PM", enddate:date "Wednesday, September 6, 2006 5:15:00 PM"}
end tell
As you can see the in the log, the script is doing what I wanted it to, going forward a week and placing events on all the days coming back to the day before the current day. Is there something I am missing? Or could this be a bug in the communication between the script and iCal?
Thanks in avance for any help
Macbook Pro   Mac OS X (10.4.7)  

Answer 1

Hi,
Isn't it the property for 'event' 'start date' with the space between start and date. I don't know if they changed this in Tiger, but you might want to check out the dictionary for iCal again.
gl,