Index: openacs-4/packages/lorsm/lib/user-lorsm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lib/user-lorsm.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/lorsm/lib/user-lorsm.tcl	14 Jun 2006 19:54:13 -0000	1.12
+++ openacs-4/packages/lorsm/lib/user-lorsm.tcl	27 Jun 2006 20:18:23 -0000	1.13
@@ -139,7 +139,11 @@
 
         ns_log Debug "lorsm - viewed_item_count: $viewed_item_count"
 
-        set viewed_percent [expr [expr $viewed_item_count * 1.00] / $total_item_count * 100]
+	if { $total_item_count == 0 } {
+	    set viewed_percent 0
+	} else {
+	    set viewed_percent [expr [expr $viewed_item_count * 1.00] / $total_item_count * 100]
+	}
 	set item_id [db_string get_item_id { }]
 	set admin_p [permission::permission_p -party_id $user_id -object_id $item_id -privilege "admin"]
     }