1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Quintiq file version 2.0
| #parent: #root
| Method GetPotentialSubscribers () remote as owning LibCal_Calendars
| {
| Description: 'Get the calendars that can subscribe to (events of) this calendar.'
| TextBody:
| [*
| subscribers := construct( LibCal_Calendars );
| calendars := this.GetCalendarRegistry().GetAllCalendars();
|
| traverse( calendars, Elements, calendar, calendar <> this )
| {
| if( calendar.GetPotentialCalendarsToSubscribeTo().Find( this ) >= 0 )
| {
| subscribers.Add( calendar );
| }
| }
|
| return &subscribers;
| *]
| }
|
|
