Index: openacs.org-dev/packages/bug-tracker/www/bug.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/bug-tracker/www/bug.tcl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/bug-tracker/www/bug.tcl 4 Dec 2002 16:13:28 -0000 1.2 +++ openacs.org-dev/packages/bug-tracker/www/bug.tcl 6 Dec 2002 15:30:18 -0000 1.3 @@ -228,9 +228,9 @@ -options [bug_tracker::users_get_options] \ -optional \ -search_query { - select distinct u.first_names || ' ' || u.last_name as name, u.user_id + select distinct u.first_names || ' ' || u.last_name || ' (' || u.email || ')' as name, u.user_id from dir_all_users u - where upper(coalesce(u.first_names || ' ', '') || coalesce(u.last_name || ' ', '') || u.email || ' ' || coalesce(u.screen_name, '')) like upper('%'||:value||'%') + where upper(coalesce(u.first_names || ' ', '') || coalesce(u.last_name || ' ', '') || u.email) like upper('%'||:value||'%') order by name } @@ -429,29 +429,33 @@ set write_p 1 } - if { [string equal $mode "view"] && $write_p } { + if { [string equal $mode "view"] } { set button_form_export_vars [export_vars -form { bug_number filter:array }] multirow create button name label + multirow append button "comment" "Comment" - multirow append button "edit" "Edit" - switch -- $bug(status) { - open { - multirow append button "reassign" "Reassign" - multirow append button "resolve" "Resolve" + if { $write_p } { + multirow append button "edit" "Edit" + + switch -- $bug(status) { + open { + multirow append button "reassign" "Reassign" + multirow append button "resolve" "Resolve" + } + resolved { + multirow append button "resolve" "Resolve" + multirow append button "reopen" "Reopen" + multirow append button "close" "Close" + } + closed { + multirow append button "reopen" "Reopen" + } } - resolved { - multirow append button "resolve" "Resolve" - multirow append button "reopen" "Reopen" - multirow append button "close" "Close" - } - closed { - multirow append button "reopen" "Reopen" - } } } - if { ![string equal $mode "view"] && !$write_p } { + if { ![string equal $mode "view"] && ![string equal $mode "comment"] && !$write_p } { ns_log notice "[ad_conn user_id] doesn't have write on object $bug(bug_id)" ad_return_forbidden "Security Violation" "
You don't have permission to edit this bug.