Index: openacs-4/packages/xowf/tcl/xowf-includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-includelet-procs.tcl,v diff -u -N -r1.4.2.4 -r1.4.2.5 --- openacs-4/packages/xowf/tcl/xowf-includelet-procs.tcl 26 Aug 2020 18:51:40 -0000 1.4.2.4 +++ openacs-4/packages/xowf/tcl/xowf-includelet-procs.tcl 1 Nov 2021 21:22:09 -0000 1.4.2.5 @@ -145,6 +145,7 @@ {__decoration plain} {parameter_declaration { {-target_time ""} + {-audio_alarm "true"} }} } -ad_doc { Countdown timer @@ -155,7 +156,9 @@ countdown-timer instproc render {} { :get_parameters return [xowf::test_item::answer_manager countdown_timer \ - -target_time $target_time -id [::xowiki::Includelet html_id [self]]] + -target_time $target_time \ + -audio_alarm $audio_alarm \ + -id [::xowiki::Includelet html_id [self]]] } } @@ -167,6 +170,7 @@ -parameter { {__decoration plain} {parameter_declaration { + {-countdown_audio_alarm "true"} {-target_time ""} {-url_poll ""} {-url_dismiss ""} @@ -197,7 +201,8 @@ set pn "" } return [subst { - [${:__including_page} include [list countdown-timer -target_time $target_time]] + [${:__including_page} include \ + [list countdown-timer -audio_alarm $countdown_audio_alarm -target_time $target_time]] $pn }] }