| | |
| | | [* |
| | | owner_i := LibCal_GlobalState.dhGlobalCalendarRegistry().Data().CommonCalendar(); |
| | | category_i := selectobject( owner_i,CalendarRegistry.EventCategory, category, category.Name() = 'Unavaliable' ); |
| | | info( '-------------------------------', isnull( owner_i ), isnull( category_i ) ); |
| | | dhCategory.Data(category_i); |
| | | |
| | | sEvent := owner_i.Event( relshadow, |
| | | EventID := [String]Key::NextPersistentKey(), |
| | | // StartTimeOfDay := start_i.TimeOfDay( timezone ), |
| | |
| | | } |
| | | |
| | | dhPotentialSubscribers.Data( &potentialSubscribers ); |
| | | |
| | | lstSubscribers.CheckAll(); |
| | | *] |
| | | } |