Index: openacs-4/packages/edit-this-page/www/etp-symlink-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-symlink-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/edit-this-page/www/etp-symlink-oracle.xql	31 Oct 2001 04:56:26 -0000	1.1
+++ openacs-4/packages/edit-this-page/www/etp-symlink-oracle.xql	20 Nov 2001 02:04:50 -0000	1.2
@@ -4,22 +4,24 @@
 
 <fullquery name="create_symlink">
 <querytext>
-    select etp.create_symlink(:package_id, :target_id);
+   begin
+     :1 := etp.create_symlink(:package_id, :target_id);
+   end;
 </querytext>
 </fullquery>
 
 <fullquery name="all_pages">
 <querytext>
 	select i.item_id, i.name, etp.get_title(i.item_id, null) as title,
-               repeat('&nbsp;',(tree_level(i.tree_sortkey) - 1) * 4) as indent
-          from cr_items i, acs_objects o
-         where i.item_id = o.object_id
+           replace(lpad(' ', (level - 1) * 4), ' ', '&nbsp;') as indent
+        from cr_items i, acs_objects o
+        where i.item_id = o.object_id
            and o.object_type in ('content_item', 'content_folder')
            and i.name != 'index'
-           and i.tree_sortkey not like (select tree_sortkey 
-                                          from cr_items
-                                         where item_id = -400) || '%'
-         order by i.tree_sortkey
+           and i.item_id not in (select item_id 
+                                 from cr_items
+                                 start with parent_id = i.item_id
+                                 connect by parent_id = prior item_id)
 </querytext>
 </fullquery>