Index: openacs-4/packages/dotlrn/www/admin/class.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class.tcl,v
diff -u -r1.21.4.2 -r1.21.4.3
--- openacs-4/packages/dotlrn/www/admin/class.tcl	18 Sep 2015 08:05:10 -0000	1.21.4.2
+++ openacs-4/packages/dotlrn/www/admin/class.tcl	8 Nov 2016 13:56:02 -0000	1.21.4.3
@@ -47,14 +47,15 @@
 set terms [db_list_of_lists select_terms_for_select_widget {}]
 set terms [linsert $terms 0 {All -1}]
 
-form create term_form
+form create term_form \
+    -has_submit 1
 
 element create term_form term_id \
     -label [_ dotlrn.Term] \
     -datatype integer \
     -widget select \
     -options $terms \
-    -html {onChange document.term_form.submit()} \
+    -html {class auto-term-form-submit} \
     -value $term_id
 
 element create term_form class_key \
@@ -63,6 +64,8 @@
     -widget hidden \
     -value $class_key
 
+template::add_event_listener -CSSclass auto-term-form-submit -event change -script {document.term_form.submit();}
+
 if {[form is_valid term_form]} {
     form get_values term_form term_id class_key
 }