Quintiq file version 2.0
#parent: #root
Response OnDrop (
  LibCal_ExplicitTimeInterval source,
  LibCal_Calendar droprow
) id:Response_LibCal_gcResourceCalendars_OnDrop
{
  #keys: '[131094.1.994983169]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebGanttChart_OnDrop'
  QuillAction
  {
    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 := WebMessageBox::Question( this, Translations::MessageBox_SubscribeToQuestion(),
                                                    Translations::MessageBox_SubscribeToOptions() );
        
        if( selection = 0 )
        {
          subscriber.SubscribeToOccurrence( occurrence );
        }
        else if( selection = 1 )
        {
          dlg := construct( LibCal_dlgSubscription );
          dlg.CreateSubscription( subscriber, occurrence.Participation().Event().LeadingParticipation() );
        }
      }
    *]
    GroupServerCalls: false
  }
}
