lazhen
2025-01-09 8afe90b633046db39042aada36b88193062f8cff
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Quintiq file version 2.0
#parent: #root
Method DeleteEventOrSubscription (
  LibCal_Participation participation_i
) id:Method_LibCal_GlobalState_DeleteEventOrSubscription
{
  #keys: '[146730.0.126142712]'
  Body:
  [*
    subject   := ifexpr( participation_i.IsSubscription(), "the subscription to ", "" )
               + "event '" + participation_i.Event().Subject() + "'"
    title     := "Delete " + ifexpr( participation_i.IsSubscription(), "Subscription", "Event" );
    defButton := 0;
    
    if( WebMessageBox::Question( Translations::MessageBox_ConfirmDeletion( subject ),
                                 Translations::MessageBox_YesNo(),
                                 defButton, title ) = 0 )
    {
      // If participation_i is the LeadingParticipation the whole event will be deleted.
      participation_i.Delete();
    }
  *]
}