Index: openacs-4/packages/categories/tcl/widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v diff -u -r1.28 -r1.29 --- openacs-4/packages/categories/tcl/widget-procs.tcl 9 May 2018 15:33:30 -0000 1.28 +++ openacs-4/packages/categories/tcl/widget-procs.tcl 28 Jun 2018 13:57:36 -0000 1.29 @@ -192,8 +192,12 @@ return [lang::util::localize $output] } -ad_proc -public template::data::validate::category { value_ref message_ref } { - # author: Timo Hentschel (timo@timohentschel.de) +ad_proc -public template::data::validate::category { + value_ref + message_ref +} { + @author Timo Hentschel (timo@timohentschel.de) +} { upvar 2 $message_ref message $value_ref values set invalid_values [list] @@ -217,9 +221,11 @@ return $result } -ad_proc -public template::data::transform::category { element_ref } { - # author: Timo Hentschel (timo@timohentschel.de) - +ad_proc -public template::data::transform::category { + element_ref +} { + @author Timo Hentschel (timo@timohentschel.de) +} { upvar $element_ref element set values [ns_querygetall $element(id)]