Optimize "Customer has a referring customer" condition, RT#74452
[freeside.git] / httemplate / browse / discount.html
1 <% include( 'elements/browse.html',
2                  'title'       => 'Discounts',
3                  'name'        => 'discounts',
4                  'menubar'     => \@menubar,
5                  'query'       => \%query,
6                  'order_by_sql' => { description => 'discountnum' },
7                  'count_query' => 'SELECT COUNT(*) FROM discount',
8                  'disableable' => 1,
9                  'disabled_statuspos' => 1,
10                  'header'      => [ 'Name', 'Class', 'Discount', ],
11                  'fields'      => [ 'name',
12                                     'classname',
13                                     'description',
14                                   ],
15                  'links'       => \@links
16              )
17 %>
18 <%init>
19
20 die "access denied"
21   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
22
23 my @links = (
24   [ "${p}edit/discount.html?", 'discountnum' ],
25   [ "${p}edit/discount_class.html?", 'classnum' ],
26 );
27
28 my %query = (
29   select => 'discount.*, discount_class.*',
30   table => 'discount',
31   addl_from => 'LEFT JOIN discount_class USING(classnum)',
32 );
33
34 my @menubar = (
35   'Add a new discount' => $p.'edit/discount.html',
36   'Discount classes' => $p.'browse/discount_class.html',
37 );
38
39 </%init>