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 -r1.29 -r1.30
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	1 Feb 2006 12:31:32 -0000	1.29
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl	6 Feb 2006 17:07:44 -0000	1.30
@@ -566,6 +566,15 @@
         set acs_object_id [callback -catch imsld::import -res_type $resource_type -res_href $resource_href -tmp_dir $tmp_dir -community_id $community_id]
         # Integration with other packages
         # This callback gets the href of the imported content (if some package imported it)
+
+        #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 \
                              -identifier $resource_identifier \
@@ -593,6 +602,16 @@
             if { !$filex_id } {
                 # an error ocurred when creating the file
                 return [list 0 "[_ imsld.lt_The_file_filex_href_w]"]
+            } else {
+                permission::set_not_inherit -object_id $filex_id
+
+                set acs_object_id $filex_id 
+                set party_id [db_list get_allowed_parties {}]
+                foreach parti $party_id {
+                    permission::revoke -party_id $parti -object_id $filex_id -privilege "read"
+                }
+
+            
             }
             # map resource with file
             relation_add imsld_res_files_rel $resource_id $filex_id
@@ -1641,6 +1660,14 @@
                                        -package_id [dotlrn_community::get_package_id $community_id] \
                                        -package_key "forums"]
             set acs_object_id [forum::new -name $title -package_id $forums_package_id]
+#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"
+                }
+            }
             
             set resource_id [imsld::cp::resource_new -manifest_id $manifest_id \
                                  -identifier "forumresource-$service_id" \