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 -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/admin/term-edit.tcl 28 Jun 2015 11:58:50 -0000 1.14
+++ openacs-4/packages/dotlrn/www/admin/term-edit.tcl 7 Aug 2017 23:48:09 -0000 1.15
@@ -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,7 +97,16 @@
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
+
+# Local variables:
+# mode: tcl
+# tcl-indent-level: 4
+# indent-tabs-mode: nil
+# End: