Index: openacs-4/packages/xowiki/www/xinha/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/file-selector.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/xowiki/www/xinha/file-selector.tcl	27 Oct 2014 16:42:08 -0000	1.16
+++ openacs-4/packages/xowiki/www/xinha/file-selector.tcl	27 Apr 2015 15:29:05 -0000	1.17
@@ -262,9 +262,9 @@
            to_char(last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi,
            content_size, url, sort_key, file_upload_name,
            case
-             when :folder_path is null
+             when :folder_path::text is null
              then fs_objects.name
-             else :folder_path || '/' || name
+             else :folder_path::text || '/' || name
            end as file_url,
            case
              when last_modified >= (now() - cast('99999' as interval))
@@ -273,11 +273,7 @@
            end as new_p
         from fs_objects
         where parent_id = :folder_id
-        and exists (select 1
-           from acs_object_party_privilege_map m
-           where m.object_id = fs_objects.object_id
-             and m.party_id = :user_id
-             and m.privilege = 'read')
+        and acs_permission__permission_p(fs_objects.object_id,:user_id,'read')='t'
          $filter_clause
          $order_by_clause"