Index: openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/sql-statement-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl	6 Jun 2004 09:00:33 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/sql-statement-procs.tcl	10 Jan 2007 21:22:12 -0000	1.3
@@ -72,19 +72,19 @@
     Adds to the SQL statement.
 } {
     upvar $sqlarrayname sql
-    if { ![empty_string_p $select] } {
+    if { $select ne "" } {
 	lappend sql(select) $select
     }
-    if { ![empty_string_p $from] } {
+    if { $from ne "" } {
 	lappend sql(from) $from
     }
-    if { ![empty_string_p $where] } {
+    if { $where ne "" } {
 	lappend sql(where) $where
     }
-    if { ![empty_string_p $groupby] } {
+    if { $groupby ne "" } {
 	lappend sql(groupby) $groupby
     }
-    if { ![empty_string_p $orderby] } {
+    if { $orderby ne "" } {
 	lappend sql(orderby) $orderby
     }
 }