Skip to content

I
intranet-riskmanagement
Commit faf6dea3 authored by adrtel's avatar adrtel
Browse files
Options

- Fixed permission issue

parent 5bd26aba
Show whitespace changes
Inline Side-by-side
Showing with 5 additions and 5 deletions
www/new.tcl
View file @ faf6dea3
...@@ -100,6 +100,7 @@ if {[info exists risk_id]} { ...@@ -100,6 +100,7 @@ if {[info exists risk_id]} {
# ---------------------------------------------- # ----------------------------------------------
# Page Title # Page Title
...@@ -154,12 +155,11 @@ if {([info exists risk_id] && $risk_id ne "")} { ...@@ -154,12 +155,11 @@ if {([info exists risk_id] && $risk_id ne "")} {
set title_label [lang::message::lookup {} intranet-riskmanagement.Name {Title}] set title_label [lang::message::lookup {} intranet-riskmanagement.Name {Title}]
set title_help [lang::message::lookup {} intranet-riskmanagement.Title_Help {Please enter a descriptive name for the new risk.}] set title_help [lang::message::lookup {} intranet-riskmanagement.Title_Help {Please enter a descriptive name for the new risk.}]
set edit_p [im_permission $current_user_id add_risks_for_customers]
set delete_p $edit_p
set edit_p 1
set actions {} set actions {}
if {$edit_p} { lappend actions {"Edit" edit} } if {$write_p} { lappend actions {"Edit" edit} }
#set delete_p $admin_p
# if {$delete_p} { lappend actions {"Delete" delete} } # if {$delete_p} { lappend actions {"Delete" delete} }
ad_form \ ad_form \
......
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