| | |
|---|
| | | #keys: '[415136.0.666291565]' |
|---|
| | | Body: |
|---|
| | | [* |
|---|
| | | owner_i := dhCalendarUse.Data(); |
|---|
| | | |
|---|
| | | 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 ) ); |
|---|
| | | |
|---|
| | | sEvent := owner_i.Event( relshadow, |
|---|
| | | EventID := [String]Key::NextPersistentKey(), |
|---|
| | | // StartTimeOfDay := start_i.TimeOfDay( timezone ), |
|---|
| | | // EndTimeOfDay := end_i .TimeOfDay( timezone ), |
|---|
| | | EventCategory := category_i, |
|---|
| | | IsDefault := owner_i.istype( LibCal_CommonCalendar ) ); |
|---|
| | | IsDefault := false ); |
|---|
| | | |
|---|
| | | sLeadPart := owner_i.Participation( relshadow, LibCal_LeadingParticipation, |
|---|
| | | ParticipationID := [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(); |
|---|
| | | *] |
|---|
| | | } |
|---|
