Index: openacs-4/packages/dotlrn/www/admin/term-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-new.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/dotlrn/www/admin/term-new.tcl 25 Aug 2006 08:03:28 -0000 1.13 +++ openacs-4/packages/dotlrn/www/admin/term-new.tcl 7 Aug 2017 23:48:09 -0000 1.14 @@ -38,18 +38,29 @@ {label "[_ dotlrn.Start_Date]"} #{format {[lc_get formbuilder_date_format]}} {html {id start_date}} - {after_html { \[yyyy-mm-dd \] + {after_html { \[yyyy-mm-dd \] }} } {end_date:text(text) {label "[_ dotlrn.End_Date]"} #{format {[lc_get formbuilder_date_format]}} {html {id end_date}} - {after_html { \[yyyy-mm-dd \] + {after_html { \[yyyy-mm-dd \] }} } +} -on_request { + template::add_body_script -script [subst { + document.getElementById('start_date').addEventListener('click', function (event) { + event.preventDefault(); + showCalendar('start_date', 'yyyy-mm-dd'); + }); + document.getElementById('end_date').addEventListener('click', function (event) { + event.preventDefault(); + showCalendar('end_date', 'yyyy-mm-dd'); + }); + }] } -validate { {start_date { [template::util::date::compare $start_date $end_date] <= 0 } @@ -97,3 +108,9 @@ ad_return_template + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: