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.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl 29 Mar 2002 19:14:47 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl 16 May 2002 13:29:15 -0000 1.5 @@ -42,7 +42,7 @@ form create department_form element create department_form department_key \ - -label "Department" \ + -label Department \ -datatype text \ -widget select \ -options $departments \ @@ -57,9 +57,9 @@ set referer "classes?[export_vars department_key]" } -set query "select_classes" +set query select_classes if {![empty_string_p $department_key]} { - set query "select_classes_by_department" + set query select_classes_by_department } db_multirow classes $query {}