- Fixed riskmanagement delete

43ea9caa · Frank Bergmann · 707671cc · 43ea9caa
Commit 43ea9caa authored Sep 04, 2018 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

action.tcl www/action.tcl +1 -1

No files found.
--- a/www/action.tcl
+++ b/www/action.tcl
@@ -33,7 +33,7 @@ switch [string tolower $action] {
    delete {
 	# Delete
 	foreach rid [array names risk_id] {
-	    im_risk_permissions $user_id $risk_project_id view read write admin
+	    im_risk_permissions $user_id $rid view read write admin
 	    if {!$write} {
 		ad_return_complaint 1 $action_forbidden_msg
 		ad_script_abort