| | |
|---|
| | | #keys: '[415136.0.666291565]' |
|---|
| | | Body: |
|---|
| | | [* |
|---|
| | | |
|---|
| | | owner_i := LibCal_GlobalState.dhGlobalCalendarRegistry().Data().CommonCalendar(); |
|---|
| | | |
|---|
| | | category_i := selectobject( owner_i,CalendarRegistry.EventCategory, category, category.Name() = 'Unavaliable' ); |
|---|
| | | dhCategory.Data(category_i); |
|---|
| | | |
|---|
| | | sEvent := owner_i.Event( relshadow, |
|---|
| | | EventID := [String]Key::NextPersistentKey(), |
|---|
| | |
|---|
| | | calendar := sLeadPart.Calendar(); |
|---|
| | | potentialSubscribers := calendar.GetPotentialSubscribers(); |
|---|
| | | |
|---|
| | | period := MacroPlan.LibCal_SubscriberEventSearch( relnew, Start := Date::MinDate(), End := Date::MaxDate() ); |
|---|
| | | |
|---|
| | | dhDate.Data( period ); |
|---|
| | | // Remove the calendar of the initiator (cannot subscribe to self). |
|---|
| | | initiator := sEvent.Calendar(); |
|---|
| | | if( potentialSubscribers.Find( initiator ) >= 0 ) |
|---|
| | |
|---|
| | | dhPotentialSubscribers.Data( &potentialSubscribers ); |
|---|
| | | |
|---|
| | | lstSubscribers.CheckAll(); |
|---|
| | | ListCalendarEventTypes.CheckAll(); |
|---|
| | | *] |
|---|
| | | } |
|---|
