Menu.AddEvent 609 B

12345678910111213141516
  1. # Menu.AddEvent
  2. if $ARGS[0] = '' or $ARGS[1] = '':EXIT
  3. !!----------
  4. $ARGS[1] = lcase(trim($ARGS[1]))
  5. !!----------
  6. if $ARGS[1] = 'when you select':
  7. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>'] = '<<replace($ARGS[2], '''', '''''')>>'"
  8. elseif $ARGS[1] = 'selecting processing after':
  9. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>'] = '<<replace($ARGS[2], '''', '''''')>>'"
  10. elseif $ARGS[1] = 'failure of the choice':
  11. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>'] = '<<replace($ARGS[2], '''', '''''')>>'"
  12. end
  13. --- Menu.AddEvent ---------------------------------