Index: openacs-4/packages/project-manager/tcl/status-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/status-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/tcl/status-procs.tcl	26 May 2005 09:34:29 -0000	1.3
+++ openacs-4/packages/project-manager/tcl/status-procs.tcl	9 Jun 2005 16:40:39 -0000	1.4
@@ -120,5 +120,10 @@
     
     @error 
 } {
-    return [db_list_of_lists get_status "select description, status_id from pm_project_status order by status_type desc, description"]
+    set return_list [list]
+    db_foreach get_status "select description, status_id from pm_project_status order by status_type desc, description" {
+	set description [lang::util::localize $description]
+	lappend return_list [list "$description" $status_id]
+    }
+    return $return_list
 }