Index: openacs-4/contrib/packages/project-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/project-manager/www/index.tcl	30 Jul 2003 21:25:07 -0000	1.3
+++ openacs-4/contrib/packages/project-manager/www/index.tcl	31 Jul 2003 20:11:41 -0000	1.4
@@ -11,24 +11,35 @@
 
 } -properties {
 
-    title:onevalue
     context:onevalue
     projects:multirow
+    write_p:onevalue
+    create_p:onevalue
 }
 
 # --------------------------------------------------------------- #
 
-set title "Projects"
+# set up context bar
 set context [list]
-set indent_pattern " "
-set indent_factor [parameter::get -parameter IndentationFactor -default 5]
 
+# the unique identifier for this package
 set package_id [ad_conn package_id]
+set user_id    [ad_maybe_redirect_for_registration]
 
-set false f
+# permissions
+permission::require_permission -party_id $user_id -object_id $package_id -privilege read
 
-set root_folder [db_string get_root "select pm_project__get_root_folder (:package_id, :false)"]
+set write_p  [permission::permission_p -object_id $package_id -privilege write] 
+set create_p [permission::permission_p -object_id $package_id -privilege create]
 
+# root CR folder
+set root_folder [db_string get_root "select pm_project__get_root_folder (:package_id, 'f')"]
+
+# set up for indentation of hierarchy
+set indent_pattern " "
+set indent_factor [parameter::get -parameter IndentationFactor -default 5]
+
+
 db_multirow projects project_folders {}
 
 ad_return_template