Index: openacs-4/packages/bug-tracker/lib/nav-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/lib/nav-bar.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/bug-tracker/lib/nav-bar.tcl	28 Aug 2003 09:45:29 -0000	1.7
+++ openacs-4/packages/bug-tracker/lib/nav-bar.tcl	24 Sep 2003 15:14:10 -0000	1.8
@@ -11,9 +11,20 @@
 set package_url [ad_conn package_url]
 set component_id [bug_tracker::conn component_id]
 
-set admin_p [permission::permission_p -object_id $package_id -privilege admin]
-set create_p [expr { [ad_conn user_id] == 0 || [permission::permission_p -object_id [ad_conn package_id] -privilege create] }]
+set admin_p [permission::permission_p \
+                 -party_id [ad_conn untrusted_user_id] \
+                 -object_id $package_id \
+                 -privilege admin]
 
+if { [ad_conn untrusted_user_id] == 0 } { 
+    set create_p 1
+} else {
+    set create_p [permission::permission_p \
+                      -party_id [ad_conn untrusted_user_id] \
+                      -object_id [ad_conn package_id] \
+                      -privilege create]
+}
+
 bug_tracker::get_pretty_names -array pretty_names
 
 set notification_url [lindex $notification_link 0]
@@ -45,7 +56,7 @@
     multirow append links "New [bug_tracker::conn Bug]" "${url_prefix}bug-add"
 }
 
-if { [ad_conn user_id] != 0 } {
+if { [ad_conn untrusted_user_id] != 0 } {
     multirow append links "My [bug_tracker::conn Bugs]" "${url_prefix}.?[export_vars -url { { filter.assignee {[ad_conn user_id]} } }]"
 }