Index: openacs-4/packages/lorsm/www/admin/tracker.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/tracker.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/admin/tracker.tcl	17 Nov 2008 13:36:44 -0000	1.2
+++ openacs-4/packages/lorsm/www/admin/tracker.tcl	12 Dec 2008 14:25:36 -0000	1.3
@@ -21,7 +21,8 @@
 set title "[_ lorsm.lt_Set_Course_Track_Opti]"
 set context [list "[_ lorsm.Set_Course_Options]"]
 
-ad_form -name tracker \
+ad_form \
+    -name tracker \
     -export {package_id} \
     -form {
         {man_id:key}
@@ -40,21 +41,10 @@
             {options {{"[_ lorsm.Trackable_1]" t} {"[_ lorsm.No_Thanks]" f}}}
         }
 
-    } -select_query {
-        select
-        case when istrackable = 't' then 'Yes'
-          else 'No'
-        end as istrackable
-        from ims_cp_manifest_class
-        where man_id = :man_id
-            and lorsm_instance_id = :package_id
+    } -select_query_name tracker_ad_form {
 
     } -edit_data {
-        db_dml do_update "
-            update ims_cp_manifest_class
-            set istrackable = :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]