Index: openacs-4/packages/lorsm/www/admin/formater.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/formater.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/lorsm/www/admin/formater.tcl 31 Dec 2006 00:36:04 -0000 1.1 +++ openacs-4/packages/lorsm/www/admin/formater.tcl 9 Apr 2007 21:43:51 -0000 1.2 @@ -37,16 +37,18 @@ } {format:text(select) {label "[_ lorsm.Format_1]"} - {options {[db_list_of_lists select_formats_for_select_widget {select format_pretty_name, + {options {[lang::util::localize_list_of_lists -list [db_list_of_lists select_formats_for_select_widget {select format_pretty_name, format_id from lorsm_course_presentation_formats - order by format_pretty_name}]}} + order by format_pretty_name}]]}} } - } -select_query { - select cp.course_presentation_format as format, pf.format_pretty_name + } -edit_request { + db_1row get_data " select cp.course_presentation_format as format, pf.format_pretty_name from ims_cp_manifests cp, lorsm_course_presentation_formats pf where cp.man_id = :man_id - and cp.course_presentation_format = pf.format_id + and cp.course_presentation_format = pf.format_id" + set format_pretty_name [lang::util::localize $format_pretty_name] + } -edit_data { db_transaction { db_dml do_update {