Index: openacs-4/packages/lorsm/www/delivery/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/lorsm/www/delivery/index.tcl	13 Aug 2007 09:20:16 -0000	1.11
+++ openacs-4/packages/lorsm/www/delivery/index.tcl	3 Sep 2008 19:44:08 -0000	1.12
@@ -127,10 +127,13 @@
 set start_page [lorsm::get_custom_page_ims_item_id -man_id $man_id -type start]
 
 if {$start_page eq "" && [lorsm::track::istrackable -course_id $man_id -package_id $package_id]} {
-    set track_id [lorsm::track::new \
-		      -user_id $user_id \
-		      -community_id $community_id \
-		      -course_id $man_id]
+    set track_id [lorsm::track::get_track_id -user_id $user_id -man_id $man_id -community_id $community_id]    
+    if {$track_id eq "" || $track_id eq 0} {
+	set track_id [lorsm::track::new \
+			  -user_id $user_id \
+			  -community_id $community_id \
+			  -course_id $man_id]
+    }
     ad_set_client_property lorsm studenttrack $track_id
 } else {
     set track_id 0