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.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/formater.tcl	17 Nov 2008 13:36:44 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/formater.tcl	12 Dec 2008 14:25:35 -0000	1.4
@@ -41,26 +41,16 @@
         {format:text(select)
             {label "[_ lorsm.Format_1]"}
             {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}]]}}
+                -list [db_list_of_lists select_formats_for_select_widget {}]]}}
         }
 
     } -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"
+        db_1row get_data {}
         set format_pretty_name [lang::util::localize $format_pretty_name]
 
     } -edit_data {
         db_transaction {
-            db_dml do_update {
-                update ims_cp_manifests
-                set course_presentation_format = :format
-                where man_id = :man_id }
+            db_dml do_update {}
         }
 
     } -after_submit {