Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	14 Apr 2005 17:33:38 -0000	1.58
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Jun 2005 06:51:53 -0000	1.59
@@ -1075,8 +1075,10 @@
     @return a Tcl list, each element of which is a list of all column 
     values in a row of the result of the SQL query<tt>sql</tt>. If 
     <tt>sql</tt> doesn't return any rows, returns an empty list. 
+    
+    It checks if the element is I18N and replaces it, thereby
+    reducing the need to do this with every single package
 
-
     @param dbn The database name to use.  If empty_string, uses the default database.
 } {
     ad_arg_parser { bind } $args
@@ -1093,7 +1095,7 @@
         while { [db_getrow $db $selection] } {
             set this_result [list]
             for { set i 0 } { $i < [ns_set size $selection] } { incr i } {
-                lappend this_result [ns_set value $selection $i]
+		lappend this_result [lang::util::localize [ns_set value $selection $i]]
             }
             lappend result $this_result
         }