2 %$cgi->param('class') =~ /^(\w)$/;
5 %my %classmap = ( 'C' => 'Cancel',
9 %my $classname = $classmap{$class};
11 <% include( 'elements/edit.html',
12 'name' => $classname . ' Reason Type',
13 'table' => 'reason_type',
15 'typenum' => $classname . ' reason type',
16 'type' => $classname . ' reason type name',
25 'viewall_url' => $p . "browse/reason_type.html?class=$class",
26 'new_hashref_callback' => sub {{ 'class' => $class }},