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.20.2.2 -r1.20.2.3
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	31 May 2007 10:03:53 -0000	1.20.2.2
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	5 Jun 2007 14:48:21 -0000	1.20.2.3
@@ -26,6 +26,21 @@
         return [array get tree]
     }
 
+    ad_proc -public get_categories {
+	   {-tree_id:required}
+    } {
+           returns the main categories of a given tree
+    } {
+	   set locale [ad_conn locale]
+           set result [list]
+           set categories [db_list get_categories ""]
+           foreach category_id $categories {
+           	lappend result $category_id
+           }
+           return $result
+           
+    }
+                                                                                
     ad_proc -public map {
         -tree_id:required
         -object_id:required