Index: openacs-4/packages/dotlrn/www/admin/term.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/www/admin/term.tcl	15 May 2007 20:14:25 -0000	1.16
+++ openacs-4/packages/dotlrn/www/admin/term.tcl	1 Nov 2013 21:08:33 -0000	1.17
@@ -95,7 +95,7 @@
     }
 }
 
-if {![exists_and_not_null referer]} {
+if {(![info exists referer] || $referer eq "")} {
     set referer "terms"
 }
 
@@ -106,12 +106,12 @@
     set paginator_query "select_all_classes_paginator"
 }
 
-if {![empty_string_p $department_key]} {
+if {$department_key ne ""} {
     append query "_by_department"
     append paginator_query "_by_department"
 }
 
-if { ![empty_string_p $keyword] } {
+if { $keyword ne "" } {
     set keyword_clause [db_map select_all_instances_keyword]
 } else {
     set keyword_clause [db_map select_all_instances_without_keyword]