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.20.2.6 -r1.20.2.7 --- openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 7 Jul 2014 18:51:31 -0000 1.20.2.6 +++ openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 7 Jul 2014 18:53:40 -0000 1.20.2.7 @@ -12,7 +12,7 @@ # http://www.fsf.org/copyleft/gpl.html ad_proc -public ad_return_template { - -string:boolean + -string:boolean {template ""} } { This function is a wrapper for sundry template:: procs. Will set the @@ -21,16 +21,16 @@ @param template Name of template file @param string If specified, will return the resulting page to the caller - string instead sending it to the connection. + string instead sending it to the connection. } { if {$template ne ""} { - template::set_file \ - [template::util::url_to_file $template [ad_conn file]] + template::set_file \ + [template::util::url_to_file $template [ad_conn file]] } if { $string_p } { - return [template::adp_parse \ - [template::util::url_to_file $template [ad_conn file]] {}] + return [template::adp_parse \ + [template::util::url_to_file $template [ad_conn file]] {}] } } @@ -53,10 +53,8 @@ set template_params [list] foreach param $params { switch [llength $param] { - 1 { lappend template_params "&" [lindex $param 0] - } - 2 { lappend template_params [lindex $param 0] [lindex $param 1] - } + 1 { lappend template_params "&" [lindex $param 0] } + 2 { lappend template_params [lindex $param 0] [lindex $param 1] } default { return -code error [_ acs-templating.Template_parser_error_in_parameter_list] } } } @@ -106,7 +104,7 @@ # if { [lang::util::translator_mode_p] } { - set apm_package_url [apm_package_url_from_key "acs-lang"] + set apm_package_url [apm_package_url_from_key "acs-lang"] # Attempt to move all message keys outside of tags while { [regsub -all {(<[^>]*)(\x002\(\x001[^\x001]*\x001\)\x002)([^>]*>)} $parsed_template {\2\1\3} parsed_template] } {} @@ -140,7 +138,7 @@ lassign [split $key "."] package_key message_key set edit_url [export_vars -base "${apm_package_url}admin/edit-localized-message" { - { locale {[ad_conn locale]} } package_key message_key { return_url [ad_return_url] } }] + { locale {[ad_conn locale]} } package_key message_key { return_url [ad_return_url] } }] if { [lang::message::message_exists_p [ad_conn locale] $key] } { set edit_link "o" @@ -151,7 +149,7 @@ } else { # Message key missing entirely set new_url [export_vars -base "${apm_package_url}admin/localized-message-new" { - { locale en_US } package_key message_key { return_url [ad_return_url] } }] + { locale en_US } package_key message_key { return_url [ad_return_url] } }] set edit_link "@" } } @@ -162,7 +160,7 @@ set mime_type [template::get_mime_type] set header_preamble [template::get_mime_header_preamble $mime_type] - doc_return 200 $mime_type "$header_preamble$parsed_template" + doc_return 200 $mime_type "$header_preamble$parsed_template" } else { db_release_unused_handles }