-%
-%$cgi->param('class') =~ /^(\w)$/ or die "illegal class";
-%my $class=$1;
-%
-%my %classmap = ( 'C' => 'cancel',
-% 'S' => 'suspend',
-% );
-%
-%my $classname = $classmap{$class};
-%
-%my $html_init = ucfirst($classname) .
-% " reason types allow groups of $classname reasons for reporting purposes." .
-% qq!<BR><BR><A HREF="${p}edit/reason_type.html?class=$class"><I>Add a ! .
-% $classname . " reason type</I></A><BR><BR>";
-%
-%my $reasons_sub = sub {
-% my $reason_type = shift;
-%
-% [ map {
-% [
-% {
-% 'data' => $_->reason,
-% 'align' => 'left',
-% 'link' => $p. "edit/reason.html?class=$class&reasonnum=".
-% $_->reasonnum,
-% },
-% ];
-% }
-% $reason_type->enabled_reasons,
-%
-% ];
-%
-%};
-%
-%my $where_clause = "WHERE class='$class'";
-%my $count_query = 'SELECT COUNT(*) FROM reason_type ';
-%$count_query .= $where_clause;
-%
-%my $link = [ $p.'edit/reason_type.html?class='.$class.'&typenum=', 'typenum' ];
-%
-%
<% include( 'elements/browse.html',
'title' => ucfirst($classname) . " Reason Types",
'menubar' => [ ucfirst($classname) . " reasons" =>
],
)
%>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+$cgi->param('class') =~ /^(\w)$/ or die "illegal class";
+my $class=$1;
+
+my %classmap = ( 'C' => 'cancel',
+ 'S' => 'suspend',
+ );
+
+my $classname = $classmap{$class};
+
+my $html_init = ucfirst($classname) .
+ " reason types allow groups of $classname reasons for reporting purposes." .
+ qq!<BR><BR><A HREF="${p}edit/reason_type.html?class=$class"><I>Add a ! .
+ $classname . " reason type</I></A><BR><BR>";
+
+my $reasons_sub = sub {
+ my $reason_type = shift;
+
+ [ map {
+ [
+ {
+ 'data' => $_->reason,
+ 'align' => 'left',
+ 'link' => $p. "edit/reason.html?class=$class&reasonnum=".
+ $_->reasonnum,
+ },
+ ];
+ }
+ $reason_type->enabled_reasons,
+
+ ];
+
+};
+
+my $where_clause = "WHERE class='$class'";
+my $count_query = 'SELECT COUNT(*) FROM reason_type ';
+$count_query .= $where_clause;
+
+my $link = [ $p.'edit/reason_type.html?class='.$class.'&typenum=', 'typenum' ];
+
+</%init>