optimize CDR rating after timed rate perf regression, RT#15739
[freeside.git] / httemplate / browse / rate_tier.html
1 <% include( 'elements/browse.html',
2               'title'         => 'Tiering plans',
3               'name_singular' => 'tiering plan',
4               'menubar'       => [ 'Add a new tier plan' =>
5                                      $p.'edit/rate_tier.html',
6                                  ],
7               'query'         => { 'table' => 'rate_tier', },
8               'count_query'   => 'SELECT COUNT(*) FROM rate_tier',
9               'header'        => [ 'Plan', 'Tiers', ],
10               'fields'        => [ 'tiername',
11                                    $details_sub,
12                                  ],
13               'links'         => [ $link, ],
14               #'disableable'   => 1,
15               #'disabled_statuspos' => 1,
16           )
17 %>
18 <%init>
19
20 die "access denied"
21   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
22
23 my $conf = new FS::Conf;
24 my $money_char = $conf->config('money_char') || '$';
25
26 my $link = [ "${p}edit/rate_tier.html?", 'tiernum' ];
27
28 my $details_sub = sub {
29   my $rate_tier = shift;
30
31   [ [ { 'data'  => 'Minimum quantity',
32         'align' => 'center',
33       },
34       { 'data'  => 'Charge per minute/call',
35         'align' => 'center',
36       },
37     ],
38     map { my $rate_tier_detail = $_;
39           [
40             { 'data'  => $rate_tier_detail->min_quan,
41               'align' => 'right',
42             },
43             { 'data'  => $money_char. $rate_tier_detail->min_charge,
44               'align' => 'right',
45             },
46           ];
47         }
48       $rate_tier->rate_tier_detail
49   ];
50
51 };
52
53 </%init>