% %$cgi->param('class') =~ /^(\w)$/; %my $class = $1; % %my $classname = $FS::reason_type::class_name{$class}; % <% 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 }}, ) %>