communigate (phase 2): rules. RT#7514
[freeside.git] / httemplate / edit / reason_type.html
1 <% include( 'elements/edit.html',
2                  'name'   => $classname . ' Reason Type',
3                  'table'  => 'reason_type',
4                  'labels' => { 
5                                'typenum'  => $classname . ' reason type',
6                                'type'     => $classname . ' reason type name',
7                                'class'    => '',
8                              },
9                  'fields' => [
10                                'type',
11                                { 'field' => 'class',
12                                  'type'  => 'hidden',
13                                },
14                              ],
15                  'viewall_url' => $p . "browse/reason_type.html?class=$class",
16                  'new_hashref_callback' => sub {{ 'class' => $class }},
17            )
18 %>
19 <%init>
20
21 die "access denied"
22   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
23
24 $cgi->param('class') =~ /^(\w)$/;
25 my $class = $1;
26
27 my $classname = $FS::reason_type::class_name{$class};
28
29 </%init>