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