Index: openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl,v diff -u -r1.16 -r1.17 --- openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 26 Feb 2005 17:52:21 -0000 1.16 +++ openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 10 Jan 2007 21:22:12 -0000 1.17 @@ -23,7 +23,7 @@ @param string If specified, will return the resulting page to the caller string instead sending it to the connection. } { - if {![empty_string_p $template]} { + if {$template ne ""} { template::set_file \ [template::util::url_to_file $template [ad_conn file]] } @@ -100,7 +100,7 @@ set parsed_template [template::adp_parse [file root [ad_conn file]] {}] - if {![empty_string_p $parsed_template]} { + if {$parsed_template ne ""} { # # acs-lang translator mode @@ -123,18 +123,18 @@ if { [string first "... while { [regexp -indices {\x002\(\x001([^\x001]*)\x001\)\x002} $parsed_template indices key] } { - set before [string range $parsed_template 0 [expr [lindex $indices 0] - 1]] - set after [string range $parsed_template [expr [lindex $indices 1] + 1] end] + set before [string range $parsed_template 0 [expr {[lindex $indices 0] - 1}]] + set after [string range $parsed_template [expr {[lindex $indices 1] + 1}] end] set key [string range $parsed_template [lindex $key 0] [lindex $key 1]]