Index: openacs-4/contrib/packages/project-manager/www/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.tcl,v diff -u -r1.26.2.1 -r1.26.2.2 --- openacs-4/contrib/packages/project-manager/www/one.tcl 4 Dec 2003 21:00:13 -0000 1.26.2.1 +++ openacs-4/contrib/packages/project-manager/www/one.tcl 5 Dec 2003 01:09:19 -0000 1.26.2.2 @@ -29,6 +29,7 @@ {orderby_versions ""} } -properties { + categories:onelist context_bar:onevalue project:multirow tasks:multirow @@ -74,6 +75,15 @@ set write_p [permission::permission_p -object_id $package_id -privilege write] set create_p [permission::permission_p -object_id $package_id -privilege create] +# categories + + +set categories [list] +set cat_list [category::get_mapped_categories $project_item_id] +foreach cat $cat_list { + lappend categories [category::get_name $cat] +} + db_1row project_query { } -column_array project set project_root [db_exec_plsql get_root_folder { }]