-%
-%$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',
'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>