projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
warning if product/service code import wasn't run, RT#77163, RT#75262
[freeside.git]
/
httemplate
/
edit
/
reason_type.html
diff --git
a/httemplate/edit/reason_type.html
b/httemplate/edit/reason_type.html
index
970529e
..
ea5650e
100644
(file)
--- a/
httemplate/edit/reason_type.html
+++ b/
httemplate/edit/reason_type.html
@@
-1,13
+1,3
@@
-%
-%$cgi->param('class') =~ /^(\w)$/;
-%my $class = $1;
-%
-%my %classmap = ( 'C' => 'Cancel',
-% 'S' => 'Suspend',
-% );
-%
-%my $classname = $classmap{$class};
-%
<% include( 'elements/edit.html',
'name' => $classname . ' Reason Type',
'table' => 'reason_type',
<% include( 'elements/edit.html',
'name' => $classname . ' Reason Type',
'table' => 'reason_type',
@@
-26,3
+16,14
@@
'new_hashref_callback' => sub {{ 'class' => $class }},
)
%>
'new_hashref_callback' => sub {{ 'class' => $class }},
)
%>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+$cgi->param('class') =~ /^(\w)$/;
+my $class = $1;
+
+my $classname = $FS::reason_type::class_name{$class};
+
+</%init>