Quintiq file version 2.0
#parent: #root
Method InitializeSubscribers () id:Method_FormCalendarUnavailableEvent_InitializeSubscribers
{
  #keys: '[415136.0.666291565]'
  Body:
  [*
    
    owner_i := LibCal_GlobalState.dhGlobalCalendarRegistry().Data().CommonCalendar();
    
    category_i := selectobject( owner_i,CalendarRegistry.EventCategory, category, category.Name() = 'Unavaliable' );
    
    sEvent := owner_i.Event( relshadow,
                             EventID        := [String]Key::NextPersistentKey(),
    //                         StartTimeOfDay := start_i.TimeOfDay( timezone ),
    //                         EndTimeOfDay   := end_i  .TimeOfDay( timezone ),
                             EventCategory  := category_i,
                             IsDefault      := false );
    
    sLeadPart := owner_i.Participation( relshadow, LibCal_LeadingParticipation,
                                        ParticipationID := [String]Key::NextPersistentKey()
    //                                    ,StartDate       := start_i.Date( timezone ),
    //                                    EndDate         := end_i  .Date( timezone ) 
                                        );
    
    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 )
    {
      potentialSubscribers.Remove( initiator );
    }
    
    dhPotentialSubscribers.Data( &potentialSubscribers );
    
    lstSubscribers.CheckAll();
    ListCalendarEventTypes.CheckAll();
  *]
}