Index: openacs-4/packages/edit-this-page/www/etp-extlink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-extlink.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/edit-this-page/www/etp-extlink.tcl	13 Jan 2005 13:58:04 -0000	1.4
+++ openacs-4/packages/edit-this-page/www/etp-extlink.tcl	7 Sep 2013 12:50:58 -0000	1.5
@@ -21,11 +21,11 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-if { $confirmed == "t" } {
-    if { [empty_string_p $url] || [empty_string_p $label] } {
+if { $confirmed eq "t" } {
+    if { $url eq "" || $label eq "" } {
 	ad_return_complaint 1 "[_ edit-this-page.You_must_fill_out_all_fields]"
     } else {
-	if { [empty_string_p $item_id] } {
+	if { $item_id eq "" } {
 	    db_exec_plsql create_extlink {
 
 	    }
@@ -43,7 +43,7 @@
     set confirmed "t"
     set form_vars [export_form_vars item_id confirmed]
 
-    if {![empty_string_p $item_id]} {
+    if {$item_id ne ""} {
 	db_1row get_extlink_info {
 	    select url, label, description
 	    from cr_extlinks