Index: openacs-4/packages/edit-this-page/www/etp-symlink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-symlink.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/edit-this-page/www/etp-symlink.tcl	24 Sep 2001 17:24:13 -0000	1.1
+++ openacs-4/packages/edit-this-page/www/etp-symlink.tcl	31 Oct 2001 04:57:40 -0000	1.2
@@ -34,7 +34,6 @@
 
     if { [empty_string_p $item_id] } {
 	db_exec_plsql create_symlink {
-	    select etp_create_symlink(:package_id, :target_id);
 	}
     } else {
 	db_dml update_symlink {
@@ -61,16 +60,6 @@
     }
 
     db_multirow all_pages all_pages {
-	select i.item_id, i.name, etp_get_title(i.item_id, null) as title,
-               repeat(' ',(tree_level(i.tree_sortkey) - 1) * 4) 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
     }
 
 }