Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v
diff -u -N -r1.63.4.2 -r1.63.4.3
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	27 Jun 2007 10:21:58 -0000	1.63.4.2
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	2 Jul 2007 15:22:09 -0000	1.63.4.3
@@ -605,10 +605,6 @@
         #revoke permissions until first usage of resources
         if {[info exist acs_object_id]} {
             permission::set_not_inherit -object_id $acs_object_id
-            set party_id [db_list get_allowed_parties {}]
-            foreach parti $party_id {
-                permission::revoke -party_id $parti -object_id $acs_object_id -privilege "read"
-            }
         }
         
         set resource_id [imsld::cp::resource_new -manifest_id $manifest_id \
@@ -647,12 +643,6 @@
 
             permission::set_not_inherit -object_id $filex_id
             
-            set acs_object_id $filex_id 
-            set party_id_list [db_list get_allowed_parties {}]
-            foreach party_id $party_id_list {
-                permission::revoke -party_id $party_id -object_id $filex_id -privilege "read"
-            }
-            
             # map resource with file
             relation_add -extra_vars $extra_vars imsld_res_files_rel $resource_id $filex_id
         }
@@ -1590,11 +1580,6 @@
     #revoke read permissions until first usage
     if {[info exist acs_object_id]} {
         permission::set_not_inherit -object_id $acs_object_id
-
-        set party_id [db_list get_allowed_parties {}]
-        foreach parti $party_id {
-            permission::revoke -party_id $parti -object_id $acs_object_id -privilege "read"
-        }
     }
     return $acs_object_id
 }