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 -r1.8 -r1.9
--- openacs-4/packages/lorsm/www/delivery/index.tcl	11 Jul 2006 02:22:17 -0000	1.8
+++ openacs-4/packages/lorsm/www/delivery/index.tcl	6 Apr 2007 19:30:21 -0000	1.9
@@ -34,13 +34,13 @@
 	}
 } else {
     ad_set_client_property lorsm ims_id ""
-    ns_log notice "UNSETTING LORSM IMS_ID '[ad_conn url]'"
+#    ns_log notice "UNSETTING LORSM IMS_ID '[ad_conn url]'"
 }
 
 if { [info exists ims_id] } {
     set item_id $ims_id
     ad_set_client_property lorsm ims_id $ims_id    
-    ns_log notice "SETTING LORSM IMS_ID = '${ims_id}' '[ad_conn url]'"
+#    ns_log notice "SETTING LORSM IMS_ID = '${ims_id}' '[ad_conn url]'"
     set body_url [export_vars -base "record-view" -url {item_id man_id}]
 }
 
@@ -79,8 +79,9 @@
 set user_id [ad_conn user_id]
 ad_set_client_property lorsm currentcourse $man_id
 
+set start_page [lorsm::get_custom_page_ims_item_id -man_id $man_id -type start]
 
-if {[lorsm::track::istrackable -course_id $man_id -package_id $package_id]} {
+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 \