haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Quintiq file version 2.0
#parent: #root
Method SubscribeToEvent (
  LibCal_Event event_i,
  Boolean useLeadingPeriod_i
) as LibCal_Subscription
{
  Description: 'Let the calendar subscribe to an event from another calendar.'
  TextBody:
  [*
    subscription := null( LibCal_Subscription );
    
    if( event_i.Calendar() <> this )
    {
      // Add the calendar as subscriber, copying over the event's original participation and recurrence period (if applicable),
      // and registering it as subscription.
      subscription := event_i.AddSubscriber( this, useLeadingPeriod_i );
    }
    else
    {
      LibCal_Util::Warning( "LibCal_Calendar.SubscribeToEvent() : cannot subscribe to an event from the same calendar." );
    }
    
    return subscription;
  *]
}