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.12 -r1.13
--- openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl	7 Oct 2007 22:36:56 -0000	1.12
+++ openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl	1 Nov 2013 21:08:33 -0000	1.13
@@ -27,7 +27,7 @@
 }
 
 
-if {![exists_and_not_null department_key]} {
+if {(![info exists department_key] || $department_key eq "")} {
     set department_key ""
 }
 
@@ -54,18 +54,18 @@
     form get_values department_form department_key
 }
 
-if {![exists_and_not_null referer]} {
+if {(![info exists referer] || $referer eq "")} {
     set referer "classes"
 }
 
 set query select_classes
 set page_query select_classes_paginator
-if {![empty_string_p $department_key]} {
+if {$department_key ne ""} {
     set query select_classes_by_department
     set page_query select_classes_by_department_paginator
 }
 
-if { [exists_and_not_null keyword] } {
+if { ([info exists keyword] && $keyword ne "") } {
     set keyword_clause [db_map classes_keyword]
 } else {
     set keyword_clause ""