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.4 -r1.5
--- openacs-4/packages/edit-this-page/www/etp-symlink.tcl	13 Jan 2005 13:58:04 -0000	1.4
+++ openacs-4/packages/edit-this-page/www/etp-symlink.tcl	7 Sep 2013 12:50:58 -0000	1.5
@@ -18,21 +18,21 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-if { ![empty_string_p $target_id] } {
+if { $target_id ne "" } {
 
     # if the target is a folder, find the item_id for its index page
     if { [db_string get_object_type {
 	select object_type from acs_objects
          where object_id = :target_id
-    }] == "content_folder" } {
+    }] eq "content_folder" } {
 	set target_id [db_string get_index_id {
 	    select item_id from cr_items
              where parent_id = :target_id
                and name = 'index'
 	}]
     }
 
-    if { [empty_string_p $item_id] } {
+    if { $item_id eq "" } {
 	db_exec_plsql create_symlink {
 	}
     } else {
@@ -46,7 +46,7 @@
     ad_script_abort
 } else {
 
-    if {![empty_string_p $item_id]} {
+    if {$item_id ne ""} {
 	db_1row get_symlink_info {
 	    select target_id
 	    from cr_symlinks