- Now checking bread crum pathes for strange characters

tcl/intranet-filestorage-procs.tcl

@@ -1588,7 +1588,7 @@ ad_proc -public im_filestorage_base_component { user_id object_id object_name ba
     @param bread_crum_path: a relative path, starting from the base_path
            "" = root directory, "dir1" = next directory, "dir1/dir2" = second next, etc.
 } {
-    ns_log Notice "im_filestorage_base_component $user_id $object_id $object_name $base_path $folder_type"
+    ns_log Notice "im_filestorage_base_component uid=$user_id oid=$object_id object_name=$object_name base_path=$base_path folder_type=$folder_type bread_crum_path=$bread_crum_path"
 
     set bgcolor(0) "roweven"
     set bgcolor(1) "rowodd"
@@ -1609,6 +1609,9 @@ ad_proc -public im_filestorage_base_component { user_id object_id object_name ba
     if {"" == $bread_crum_path} {
         set bread_crum_path [ns_set get $bind_vars bread_crum_path]
     }
+    if {[im_security_alert_check_path -location "intranet-filestorage.im_filestorage_base_component" -value $bread_crum_path]} {
+	set bread_crum_path ""
+    }
 
     set base_path_depth [llength [split $base_path "/"]]
     ns_set delkey $bind_vars bread_crum_path