Index: openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl,v
diff -u -N -r1.17 -r1.17.6.1
--- openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	20 Oct 2009 21:22:58 -0000	1.17
+++ openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	10 Oct 2013 21:20:11 -0000	1.17.6.1
@@ -100,7 +100,7 @@
 		element set_value upload_form f_href $f_href
 	    }
 	    # ensure that Link Title is specified
-	    if { ![exists_and_not_null f_title] && [exists_and_not_null url_ok_btn] } {
+	    if { (![info exists f_title] || $f_title eq "") && ([info exists url_ok_btn] && $url_ok_btn ne "") } {
 		template::form::set_error upload_form f_title "Specify a [_ acs-templating.Link_Title]"
 	    }
 	    set error_p 0
@@ -225,7 +225,7 @@
 		    # see the parent object
 		    set f_href "/image/${item_id}/private/${parent_id}/${file_name}"			
 		} else {
-		    if { [exists_and_not_null f_url] && $url_ok_btn ne "" } {
+		    if { ([info exists f_url] && $f_url ne "") && $url_ok_btn ne "" } {
 			set f_href $f_url
 		    } else {
 			set f_href "/file/${item_id}/${file_name}"