Index: openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl	1 Nov 2013 21:08:33 -0000	1.13
+++ openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl	7 Aug 2017 23:48:09 -0000	1.14
@@ -27,7 +27,7 @@
 }
 
 
-if {(![info exists department_key] || $department_key eq "")} {
+if {![info exists department_key] || $department_key eq ""} {
     set department_key ""
 }
 
@@ -40,24 +40,28 @@
 }]
 set departments [linsert $departments 0 [list [_ dotlrn.All] ""]]
 
-form create department_form
+form create department_form  -has_submit 1
 
 element create department_form department_key \
     -label [_ dotlrn.Department] \
     -datatype text \
     -widget select \
     -options $departments \
-    -html {onChange document.department_form.submit()} \
+    -html {id department_form-department_key} \
     -value $department_key
 
+template::add_event_listener -id "department_form-department_key" -event change -script {document.department_form.submit();}
+
 if {[form is_valid department_form]} {
     form get_values department_form department_key
 }
 
-if {(![info exists referer] || $referer eq "")} {
+if {![info exists referer] || $referer eq ""} {
     set referer "classes"
 }
 
+
+
 set query select_classes
 set page_query select_classes_paginator
 if {$department_key ne ""} {
@@ -133,3 +137,9 @@
 db_multirow classes $query {}
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: