<% include( 'elements/edit.html', 'name' => $classname . ' Reason Type', 'table' => 'reason_type', 'labels' => { 'typenum' => $classname . ' reason type', 'type' => $classname . ' reason type name', 'class' => '', }, 'fields' => [ 'type', { 'field' => 'class', 'type' => 'hidden', }, ], 'viewall_url' => $p . "browse/reason_type.html?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};