Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v diff -u -r1.19 -r1.20 --- openacs-4/packages/categories/tcl/category-trees-procs.tcl 8 Aug 2006 21:26:19 -0000 1.19 +++ openacs-4/packages/categories/tcl/category-trees-procs.tcl 21 Dec 2006 11:52:25 -0000 1.20 @@ -197,52 +197,55 @@ category::reset_translation_cache } - ad_proc -public get_mapped_trees { object_id } { + ad_proc -public get_mapped_trees { object_id {locale ""}} { Get the category trees mapped to an object. @param object_id object to get the mapped category trees. + @param locale language in which to get the name. [ad_conn locale] used by default. @return tcl list of lists: tree_id tree_name subtree_category_id assign_single_p require_category_p @author Timo Hentschel (timo@timohentschel.de) } { set result [list] db_foreach get_mapped_trees "" { - lappend result [list $tree_id [get_name $tree_id] $subtree_category_id $assign_single_p $require_category_p] + lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p] } return $result } - ad_proc -public get_mapped_trees_from_object_list { object_id_list } { + ad_proc -public get_mapped_trees_from_object_list { object_id_list {locale ""}} { Get the category trees mapped to a list of objects. @param object_id_list list of object to get the mapped category trees. + @param locale language in which to get the name. [ad_conn locale] used by default. @return tcl list of lists: tree_id tree_name subtree_category_id assign_single_p require_category_p @author Jade Rubick (jader@bread.com) } { set result [list] db_foreach get_mapped_trees_from_object_list "" { - lappend result [list $tree_id [get_name $tree_id] $subtree_category_id $assign_single_p $require_category_p] + lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p] } return $result } - ad_proc -public get_mapped_trees_from_object_list { object_id_list } { + ad_proc -public get_mapped_trees_from_object_list { object_id_list {locale ""}} { Get the category trees mapped to a list of objects. @param object_id_list list of object to get the mapped category trees. + @param locale language in which to get the name. [ad_conn locale] used by default. @return tcl list of lists: tree_id tree_name subtree_category_id assign_single_p require_category_p @author Jade Rubick (jader@bread.com) } { set result [list] db_foreach get_mapped_trees_from_object_list "" { - lappend result [list $tree_id [get_name $tree_id] $subtree_category_id $assign_single_p $require_category_p] + lappend result [list $tree_id [get_name $tree_id $locale] $subtree_category_id $assign_single_p $require_category_p] } return $result @@ -455,7 +458,7 @@ @param locale language in which to get the name. [ad_conn locale] used by default. @author Timo Hentschel (timo@timohentschel.de) } { - return [lindex [get_translation $tree_id] 0] + return [lindex [get_translation $tree_id $locale] 0] } ad_proc pageurl { object_id } {