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 -N -r1.13.4.2 -r1.13.4.3 --- openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl 29 Jul 2016 13:16:01 -0000 1.13.4.2 +++ openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl 8 Nov 2016 13:56:02 -0000 1.13.4.3 @@ -27,7 +27,7 @@ } -if {(![info exists department_key] || $department_key eq "")} { +if {![info exists department_key] || $department_key eq ""} { set department_key "" } @@ -47,17 +47,21 @@ -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 ""} {