Index: openacs-4/packages/lorsm/templates/lorsm-no-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/templates/lorsm-no-index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/templates/lorsm-no-index.tcl	26 Apr 2005 16:48:29 -0000	1.4
+++ openacs-4/packages/lorsm/templates/lorsm-no-index.tcl	18 May 2005 07:45:24 -0000	1.5
@@ -62,7 +62,9 @@
 		} else {
 			set viewed_item_id [lindex $item_list [expr [lsearch -exact $item_list $viewed_item_id] - 1]]
 		}
-		lorsm::record_view $viewed_item_id $man_id
+		if { [lsearch -exact $item_list $viewed_item_id] >= 0 } {
+		    lorsm::record_view $viewed_item_id $man_id
+		}
 
 		# Student tracking
 		set package_id [ad_conn package_id]