Index: openacs-4/packages/lorsm/www/admin/enabler.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/enabler.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/enabler.tcl	17 Nov 2008 13:36:44 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/enabler.tcl	12 Dec 2008 14:25:35 -0000	1.3
@@ -41,23 +41,13 @@
             {options {{"[_ lorsm.Enable]" t} {"[_ lorsm.Disable]" f}}}
         }
 
-    } -select_query {
-        select
-        case when isenabled = 't' then 'Enabled'
-        else 'Disabled'
-        end as isenabled
-        from ims_cp_manifest_class
-        where man_id = :man_id
-            and lorsm_instance_id = :package_id
+    } -select_query_name enabler_form {
 
     } -edit_data {
-        db_dml do_update "
-            update ims_cp_manifest_class
-            set isenabled = :enable
-            where man_id = :man_id
-                and lorsm_instance_id = :package_id"
+        db_dml do_update {}
 
     } -after_submit {
-        ad_returnredirect [site_node::get_url_from_object_id -object_id package_id]
+        ad_returnredirect [site_node::get_url_from_object_id \
+                            -object_id package_id]
         ad_script_abort
     }