Index: openacs-4/packages/dotlrn/www/admin/term-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-edit.tcl,v diff -u -N -r1.14.2.1 -r1.14.2.2 --- openacs-4/packages/dotlrn/www/admin/term-edit.tcl 11 Sep 2015 11:40:52 -0000 1.14.2.1 +++ openacs-4/packages/dotlrn/www/admin/term-edit.tcl 14 Oct 2016 17:59:24 -0000 1.14.2.2 @@ -55,15 +55,15 @@ {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 \] }} } @@ -78,20 +78,15 @@ } } -edit_data { - # Setting the rigth format to send to the procedures + # Setting the right format to send to the procedures # dotlrn_term::start_end_dates_to_term_year and # dotlrn_term::new set start_date [split $start_date "-"] - lappend start_date "" - lappend start_date "" - lappend start_date "" - lappend start_date "MONTH DD YYYY" + lappend start_date "" "" "" "MONTH DD YYYY" + set end_date [split $end_date "-"] - lappend end_date "" - lappend end_date "" - lappend end_date "" - lappend end_date "MONTH DD YYYY" + lappend end_date "" "" "" "MONTH DD YYYY" dotlrn_term::edit \ -term_id $term_id \ @@ -102,6 +97,9 @@ ad_returnredirect $referer ad_script_abort +} -on_request { + template::add_event_listener -id start_date-control -script {showCalendar('start_date', 'yyyy-mm-dd');} + template::add_event_listener -id end_date-control -script {showCalendar('end_date', 'yyyy-mm-dd');} } ad_return_template