Index: openacs-4/packages/ajax-filestorage-ui/www/xmlhttp/load-treenodes-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajax-filestorage-ui/www/xmlhttp/load-treenodes-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ajax-filestorage-ui/www/xmlhttp/load-treenodes-oracle.xql	26 Nov 2007 12:52:45 -0000	1.1
+++ openacs-4/packages/ajax-filestorage-ui/www/xmlhttp/load-treenodes-oracle.xql	11 Mar 2009 09:44:34 -0000	1.2
@@ -11,20 +11,24 @@
 
   <fullquery name="treenodes">
     <querytext>
-        select fs_objects.object_id, fs_objects.name, fs_objects.title, fs_objects.parent_id,
-                   case
-                     when fs_objects.type = 'url'
-                     then ( select acs_permission.permission_p(fs_objects.object_id, :viewing_user_id, 'write') from dual)
-                     else 't'
-                   end as write_p
-            from fs_objects 
-            where fs_objects.type='folder'
-        and fs_objects.parent_id = :node 
-        and exists (select 1
-                from acs_object_party_privilege_map m
-                where m.object_id = fs_objects.object_id
-                and m.party_id = :viewing_user_id
-                and m.privilege = 'read') order by fs_objects.title
+        select  fs_objects.object_id,
+                fs_objects.name,
+                fs_objects.title,
+                fs_objects.parent_id,
+                fs_objects.content_size,
+                fs_objects.type,
+                case when fs_objects.type = 'url'
+                    then ( select acs_permission.permission_p(fs_objects.object_id, :viewing_user_id, 'write') from dual)
+                    else 't'
+                end as write_p
+        from fs_objects
+        where fs_objects.type in ('folder','symlink')
+          and fs_objects.parent_id = :node
+          and exists (select 1
+                    from acs_object_party_privilege_map m
+                    where m.object_id = fs_objects.object_id
+                    and m.party_id = :viewing_user_id
+                    and m.privilege = 'read') order by fs_objects.title
     </querytext>
   </fullquery>