Quintiq file version 2.0
#parent: #root
Response OnDrop (
  LibCal_ExplicitTimeInterval source,
  LibCal_Calendar droprow
) id:Response_LibCal_gcResourceCalendars_OnDrop
{
  #keys: '[131094.0.1866769921]'
  Body:
  [*
    // ExplicitTimeInterval -> Row  (SubscribeToEvent)
    subscriber := droprow;
    occurrence := source;
    event      := occurrence.Participation().Event();
    
    if( not occurrence.Participation().IsRecurring() )
    {
      subscriber.SubscribeToEvent( event );
    }
    else
    {
      // Ask if only this occurrence or all occurrences should be subscribed to.
      selection := MessageBox::Question( this, Translations::MessageBox_SubscribeToQuestion(),
                                               Translations::MessageBox_SubscribeToOptions() );
      
      if( selection = 0 )
      {
        subscriber.SubscribeToOccurrence( occurrence );
      }
      else if( selection = 1 )
      {
        dlg := construct( LibCal_dlgSubscription );
        dlg.CreateSubscription( this, subscriber, occurrence.Participation().Event().LeadingParticipation() );
      }
    }
  *]
  CanBindMultiple: false
  DefinitionID: 'Responsedef_GanttChart_OnDrop'
}
