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]} {
Index: openacs-4/packages/lorsm/www/delivery/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.vuh,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/lorsm/www/delivery/index.vuh	6 Apr 2007 19:30:21 -0000	1.7
+++ openacs-4/packages/lorsm/www/delivery/index.vuh	17 May 2007 20:37:01 -0000	1.8
@@ -7,7 +7,6 @@
 set path_list [split $path_info /]
 set base [lindex $path_list 0]
 set dotlrn_package_id [dotlrn_community::get_community_id]	
-
 set lorsm_url [dotlrn_community::get_community_url $dotlrn_package_id]lorsm/
 set delivery_url ${lorsm_url}delivery
 ##########
@@ -16,8 +15,22 @@
 set man_id [ad_get_client_property lorsm man_id]
 
 set user_id [ad_conn user_id]
+
+set enabled_p [db_string enabled_p "select isenabled from ims_cp_manifest_class where man_id=:man_id and community_id=:dotlrn_package_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 last_item_viewed [db_string select_last_item_viewed {    
 	select ims_item_id
 	from views v,