RT# 71419 Updated Advanced wireless broadband report with new option to display packa...
[freeside.git] / httemplate / edit / reason.html
1 <& elements/edit.html,
2   'menubar'=> [ "View all $classname Reasons" => 
3                   $p.'browse/reason.html?class='.$class,
4                 "View $classname Reason Types" =>
5                   $p.'browse/reason_type.html?class='.$class,
6               ],
7   'name'   => ucfirst($classname) . ' Reason',
8   
9   'table'  => 'reason',
10   'labels' => { 
11                 'reasonnum'   => $classname .  ' Reason',
12                 'reason_type' => $classname . ' Reason type',
13                 'reason'      => $classname . ' Reason',
14                 'disabled'    => 'Disabled',
15                 'class'       => '',
16                 'feepart'     => 'Charge a suspension fee',
17                 'fee_on_unsuspend'  => 'When a package is',
18                 'fee_hold'          => 'Delay fee until next bill',
19                 'unused_credit'     => 'Credit unused portion of service',
20                 'unsuspend_pkgpart' => 'Order an unsuspension package',
21                 'unsuspend_hold'    => 'Delay package until next bill',
22               },
23   'fields' => \@fields,
24 &>
25 <%init>
26
27 die "access denied"
28   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
29
30 $cgi->param('class') =~ /^(\w)$/ or die "illegal class";
31 my $class=$1;
32
33 my $classname = ucfirst($FS::reason_type::class_name{$class});
34
35 my (@types) = qsearch( 'reason_type', { 'class' => $class } );
36
37 unless (scalar(@types)) {
38   print $cgi->redirect( "reason_type.html?class=$class" );
39 }
40
41 my @fields = (
42   { 'field' => 'reason_type',
43     'type'  => 'select-table',
44     'table' => 'reason_type',
45     'name_col'  => 'type',
46     'value_col' => 'typenum',
47     'hashref'   => { 'class' => $class },
48     'disable_empty' => 1,
49 #     #then fix tr-select.html
50 #
51 #    'value' => { 'vcolumn' => 'typenum',
52 #                 'ccolumn' => 'type',
53 #             'values'  => \@types,
54 #           },
55 #     # that wasn't so hard...did this do something else that I'm missing?
56   },
57   'reason',
58   { 'field' => 'class',
59     'type'  => 'hidden',
60     'value' => $class,
61   },
62   { 'field' => 'disabled',
63     'type'  => 'checkbox',
64     'value' => 'Y'
65   },
66 );
67
68 if ( $class eq 'S' or $class eq 'C' ) {
69   push @fields,
70     { 'field'     => 'unused_credit',
71       'type'      => 'checkbox',
72       'value'     => 'Y',
73     };
74 }
75 if ( $class eq 'S' ) {
76     { 'type' => 'tablebreak-tr-title' },
77     { 'field'     => 'feepart',
78       'type'      => 'select-table',
79       'table'     => 'part_fee',
80       'hashref'   => { disabled => '' },
81       'name_col'  => 'itemdesc',
82       'value_col' => 'feepart',
83       'empty_label' => 'none',
84     },
85     { 'field'     => 'fee_on_unsuspend',
86       'type'      => 'select',
87       'options'   => [ '', 'Y' ],
88       'labels'    => { '' => 'suspended', 'Y' => 'unsuspended' },
89     },
90     { 'field'     => 'fee_hold',
91       'type'      => 'checkbox',
92       'value'     => 'Y',
93     },
94     { 'field'     => 'unsuspend_pkgpart',
95       'type'      => 'select-part_pkg',
96       'hashref'   => { 'disabled' => '',
97                        'freq'     => 0 }, # one-time charges only
98     },
99     { 'field'     => 'unsuspend_hold',
100       'type'      => 'checkbox',
101       'value'     => 'Y',
102     },
103   ;
104 }
105
106 </%init>