Index: openacs-4/packages/ams/tcl/ams-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/ams/tcl/ams-widget-procs.tcl	27 May 2005 09:46:49 -0000	1.2
+++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl	8 Jun 2005 06:13:28 -0000	1.3
@@ -89,7 +89,12 @@
 } {
     Return all widget procs. Each list element is a list of the first then pretty_name then the widget
 } {
-    return [db_list_of_lists get_options {}]
+    set return_list [list]
+    db_foreach get_options {} {
+	set option "[lang::util::localize $option]"
+	lappend return_list [list $option $option_id]
+    }
+    return $return_list
 }
 
 ad_proc -private ams::widget_list {