Fisheye: Tag 1.4.2.1 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/lib/folder-links-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4.2.1 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/lib/folder-links-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/file-storage/lib/folder-links.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/lib/folder-links.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/file-storage/lib/folder-links.tcl	15 Mar 2019 09:08:44 -0000	1.5.2.1
+++ openacs-4/packages/file-storage/lib/folder-links.tcl	15 Mar 2019 09:14:06 -0000	1.5.2.2
@@ -29,7 +29,7 @@
 set viewing_user_id [ad_conn user_id]
 if {!$permission_check} {
     set permission_p 1
-    set permission_clause [db_map permission_clause] 
+    set permission_clause {and acs_permission.permission_p(fs_objects.object_id, :viewing_user_id, 'read')}
 } else {
     set permission_p [permission::permission_p -party_id $viewing_user_id -object_id $folder_id -privilege "read"]
     set permission_clause ""
@@ -41,7 +41,7 @@
 
 set fs_url [site_node::get_url_from_object_id -object_id $package_id]
 if {$root_folder_id ne $folder_id && "/view/" eq $base_url} {
-    set folder_path [db_exec_plsql get_folder_path {}]
+    set folder_path [content::item::get_path -item_id $folder_id -root_folder_id $root_folder_id]
 } else {
     set folder_path ""
 }