Index: openacs-4/packages/lorsm/tcl/lorsm-tracking-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-tracking-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/lorsm/tcl/lorsm-tracking-procs.tcl	17 Nov 2008 13:36:43 -0000	1.7
+++ openacs-4/packages/lorsm/tcl/lorsm-tracking-procs.tcl	12 Dec 2008 14:25:34 -0000	1.8
@@ -43,14 +43,7 @@
     } {
 
         db_transaction {
-            set track_id [db_exec_plsql track_st_new {
-
-            select lorsm_student_track__new (
-                             :user_id,
-                             :community_id,
-                             :course_id
-                             );
-        }]}
+            set track_id [db_exec_plsql track_st_new {}]}
         return $track_id
     }
 
@@ -66,16 +59,14 @@
     } {
 
         db_transaction {
-            set track_id [db_exec_plsql track_st_exit {
+            set track_id [db_exec_plsql track_st_exit {}]
 
-            select lorsm_student_track__exit (
-                              :track_id
-                              );
-
-            }]
-
             if {$track_id ne ""} {
-                db_0or1row get_track "select * from lorsm_student_track where track_id=:track_id"
+                # Initialized to prevent errors
+                set credit_earned ""
+                set elapsed_seconds ""
+
+                db_0or1row get_track {}
                 if {[ad_conn -connected_p]} {
                     set package_id [ad_conn package_id]
                 } else {
@@ -110,10 +101,7 @@
 
     } {
 
-        set istrackable [db_string trackable {select istrackable
-                from ims_cp_manifest_class
-                where man_id = :course_id
-                    and lorsm_instance_id = :package_id}]
+        set istrackable [db_string trackable {}]
 
         if {$istrackable == "f"} {
             return 0
@@ -126,19 +114,7 @@
         -track_id
     } {
 
-        set last_item_viewed [db_string select_last_item_viewed {
-            select to_char(v.last_viewed,'YYYY-MM-DD HH24:MI:SS') as last_viewed
-            from views_views v,
-            ims_cp_items i,
-            ims_cp_organizations o,
-            lorsm_student_track t
-            where t.track_id = :track_id
-                and v.viewer_id = t.user_id
-                and v.object_id = i.ims_item_id
-                and i.org_id = o.org_id
-                and o.man_id = t.course_id
-            order by v.last_viewed desc
-            limit 1 } -default ""]
+        set last_item_viewed [db_string select_last_item_viewed {} -default ""]
 
         if {$last_item_viewed ne ""} {
             set current_seconds [clock seconds]
@@ -147,9 +123,7 @@
             if {$elapsed_seconds > 600} {
                 set elapsed_seconds 600
             }
-            db_dml update_elapsed_seconds "update lorsm_student_track
-                set elapsed_seconds = coalesce(elapsed_seconds,0) + :elapsed_seconds
-                where track_id = :track_id"
+            db_dml update_elapsed_seconds {}
         }
     }