Index: openacs-4/packages/acs-templating/tcl/request-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/request-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-templating/tcl/request-procs.tcl 10 Jan 2007 21:22:12 -0000 1.7 +++ openacs-4/packages/acs-templating/tcl/request-procs.tcl 27 Oct 2014 16:40:12 -0000 1.8 @@ -28,7 +28,7 @@ } { Dispatch procedure for requests. } { - eval request::$command $args + request::$command {*}$args } ad_proc -public template::request::create { args } { @@ -39,7 +39,7 @@ Equivalent to calling set_param for each parameter, but requiring slightly less typing. } { - eval template::form::create request $args + template::form::create request {*}$args set level [template::adp_level] @@ -56,7 +56,7 @@ set param [string trim $param] if {$param eq {}} { continue } - eval set_param $param + set_param {*}$param } } } @@ -89,7 +89,7 @@ @see template::element::create } { set level [template::adp_level] - eval template::element::create request $name $args + template::element::create request $name {*}$args # Set a local variable with the parameter value but no # clobber the variable if it already exists.