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 querysql. If
sql 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
}