Index: openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl 11 Sep 2024 06:15:48 -0000 1.10 +++ openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl 13 Nov 2024 08:36:31 -0000 1.11 @@ -545,6 +545,36 @@ } } +ad_proc -deprecated template::form::export {} { + Generates hidden input tags for all values in a form submission. + Typically used to create a confirmation page following an initial + submission. + + DEPRECATED: this proc has been superseded by export_vars, which + also offers additional features. + + @see export_vars + + @return A string containing hidden input tags for inclusion in a + form. +} { + set form [ns_getform] + if { $form eq "" } { return "" } + + set export_data "" + + for { set i 0 } { $i < [ns_set size $form] } { incr i } { + + set key [ns_set key $form $i] + set value [ns_set value $form $i] + + append export_data " +
" + } + + return $export_data +} + # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v diff -u -r1.61 -r1.62 --- openacs-4/packages/acs-templating/tcl/form-procs.tcl 11 Sep 2024 06:15:48 -0000 1.61 +++ openacs-4/packages/acs-templating/tcl/form-procs.tcl 13 Nov 2024 08:36:31 -0000 1.62 @@ -856,36 +856,6 @@ } } -ad_proc -deprecated template::form::export {} { - Generates hidden input tags for all values in a form submission. - Typically used to create a confirmation page following an initial - submission. - - DEPRECATED: this proc has been superseded by export_vars, which - also offers additional features. - - @see export_vars - - @return A string containing hidden input tags for inclusion in a - form. -} { - set form [ns_getform] - if { $form eq "" } { return "" } - - set export_data "" - - for { set i 0 } { $i < [ns_set size $form] } { incr i } { - - set key [ns_set key $form $i] - set value [ns_set value $form $i] - - append export_data " - " - } - - return $export_data -} - ad_proc -public template::form::size { id } { @param id The form identifier @return the number of elements in the form identified by id