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.9 -r1.10
--- openacs-4/packages/lorsm/www/delivery/index.tcl	6 Apr 2007 19:30:21 -0000	1.9
+++ openacs-4/packages/lorsm/www/delivery/index.tcl	17 May 2007 20:37:01 -0000	1.10
@@ -79,6 +79,23 @@
 set user_id [ad_conn user_id]
 ad_set_client_property lorsm currentcourse $man_id
 
+
+set enabled_p [db_string enabled_p "select isenabled from ims_cp_manifest_class where man_id=:man_id and community_id=:community_id" -default "f"]
+set item_list [lorsm::get_item_list $man_id $user_id]
+
+if {$enabled_p} {
+	permission::require_permission \
+		-party_id $user_id \
+	        -object_id $man_id \
+                -privilege read
+} else {
+	permission::require_permission \
+		-party_id $user_id \
+	        -object_id $man_id \
+                -privilege admin
+}
+
+
 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]} {