Skip to content

I
intranet-helpdesk
Commit b413d6bd authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Helpdesk: 

  Fixed bug reversing Gustaf changes in expr
parent 9dbc8aff
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 5 deletions
tcl/intranet-helpdesk-procs.tcl
View file @ b413d6bd
......@@ -203,12 +203,12 @@ ad_proc -public im_ticket_permissions {
return 0
}
set owner_p [expr {$user_id == $creation_user_id}]
set assignee_p [expr {$user_id == $ticket_assignee_id}]
set customer_p [expr {$customer_member_p || $user_id == $ticket_customer_contact_id}]
set owner_p [expr $user_id == $creation_user_id]
set assignee_p [expr $user_id == $ticket_assignee_id]
set customer_p [expr $customer_member_p || $user_id == $ticket_customer_contact_id]
set read [expr {$admin_p || $owner_p || $assignee_p || $customer_p || $sla_member_p || $ticket_member_p || $holding_user_p || $case_assignee_p || $queue_member_p || $view_tickets_all_p || $edit_tickets_all_p}]
set write [expr {$admin_p || $edit_tickets_all_p || $ticket_admin_p}]
set read [expr $admin_p || $owner_p || $assignee_p || $customer_p || $sla_member_p || $ticket_member_p || $holding_user_p || $case_assignee_p || $queue_member_p || $view_tickets_all_p || $edit_tickets_all_p]
set write [expr $admin_p || $edit_tickets_all_p || $ticket_admin_p]
set view $read
set admin $write
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment