41 lines
821 B
Text
41 lines
821 B
Text
DEBUGVAR "Section: chg_price_event"
|
|
|
|
; init-vars
|
|
Var enableDiscount50 = "false"
|
|
|
|
|
|
|
|
|
|
|
|
; check-profiles
|
|
STRCONTAIN "Discount50" XMLProfile enableDiscount50
|
|
|
|
|
|
; act-by-prof
|
|
If enableDiscount50 = "true" Then
|
|
|
|
DEBUGVAR "pre-discount50"
|
|
DEBUGVAR toppingID2price1
|
|
DEBUGVAR toppingID2price2
|
|
DEBUGVAR toppingID2price3
|
|
DEBUGVAR toppingID3price2
|
|
DEBUGVAR toppingID6price2
|
|
|
|
Var toppingID2price1 = toppingID2price1 / 2
|
|
Var toppingID2price2 = toppingID2price2 / 2
|
|
Var toppingID2price3 = toppingID2price3 / 2
|
|
|
|
Var toppingID3price2 = toppingID3price2 / 2
|
|
|
|
Var toppingID6price2 = toppingID6price2 / 2
|
|
|
|
DEBUGVAR "after-discount50"
|
|
DEBUGVAR toppingID2price1
|
|
DEBUGVAR toppingID2price2
|
|
DEBUGVAR toppingID2price3
|
|
DEBUGVAR toppingID3price2
|
|
DEBUGVAR toppingID6price2
|
|
|
|
EndIf
|
|
|
|
DEBUGVAR "Section: chg_price_event end!"
|