- changes for backup/restore

tcl/intranet-filestorage-procs.tcl

@@ -897,6 +897,15 @@ ad_proc -public im_filestorage_base_component { user_id object_id object_name ba
     set base_path_depth [llength [split $base_path "/"]]
     ns_set delkey $bind_vars bread_crum_path
 
+    set user_is_employee_p [im_user_is_employee_p $user_id]
+    set user_is_customer_p [im_user_is_customer_p $user_id]
+
+    # Customer shouldn't see their filestorage
+    if {[string equal "customer" $folder_type] || [string equal "user" $folder_type]} {
+	if {!$user_is_employee_p} { return "" }
+    }
+
+
     # ------------------------------------------------------------------
     # Start initializing the tree algrorithm
 

www/upload-2.tcl

@@ -32,7 +32,9 @@ set context_bar [ad_context_bar [list "/intranet/projects/" "Projects"]  [list "
 # Gets object permissions using commands like: "im_project_permissions" ...
 #
 set object_type [db_string acs_object_type "select object_type from acs_objects where object_id=:object_id" -default ""]
+
 set perm_cmd "${object_type}_permissions \$user_id \$object_id object_view object_read object_write object_admin"
+
 eval $perm_cmd
 
 
@@ -40,7 +42,7 @@ eval $perm_cmd
 #
 set exception_text ""
 set exception_count 0
-if {!$object_write} {
+if {!$object_read} {
     append exception_text "<li>You have insufficient privileges to upload this file.\n"
     incr exception_count
 }