Index: openacs-4/packages/categories/tcl/categories-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v diff -u -r1.38.2.5 -r1.38.2.6 --- openacs-4/packages/categories/tcl/categories-procs.tcl 26 Apr 2019 16:21:57 -0000 1.38.2.5 +++ openacs-4/packages/categories/tcl/categories-procs.tcl 26 Apr 2019 16:27:39 -0000 1.38.2.6 @@ -441,12 +441,9 @@ @return list of names corresponding to the list of category_id's supplied. @author Timo Hentschel (timo@timohentschel.de) } { - set result [list] - foreach category_id $category_ids { - lappend result [category::get_name $category_id $locale] - } - return $result + return [lmap category_id $category_ids {category::get_name $category_id $locale}] } + ad_proc -public category::get_children { -category_id:required } {