httemplate/search/phone_inventory_provisioned.html


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

<& elements/search.html,
              'title'         => 'LATA Search Results',
              'name_singular' => 'LATA',
              'query'         => {
                                   'table'   => 'phone_avail',
                                   'hashref' => {},
                                   'select'  => 'distinct latanum',
                                 },
              'count_query'   => 'SELECT COUNT(distinct latanum) FROM phone_avail',
              'header'        => [ 
                                   '#',
                                   'LATA',
                                   'Available',
                                   'Provisioned',
                                   'Have Usage',
                                 ],
              'fields'        => [
                'latanum',
                sub { # LATA Description
                    my $phone_avail = shift;
                    return '' unless $phone_avail->lata;
                    $phone_avail->lata->description;
                },
                sub { # Available
                    my $latanum = shift->latanum;
                    my $cnt = qsearchs({ 'table'    => 'phone_avail',
                                 'hashref'  => 
                                    { 'svcnum' => '',
                                      'latanum' => $latanum,
                                    },
                                 'select'   => 'count(1) as cnt',
                          });
                    ($cnt) ? $cnt->cnt : '';
                },
                sub { # Provisioned
                    my $latanum = shift->latanum;
                    my $cnt = qsearchs({   'table'     => 'phone_avail',
                        'hashref'   => { 'latanum' => $latanum,
                                         'svcnum' => { op => '>',
                                                        value => '0'
                                                     },
                                        },
                        'select'    => 'count(1) as cnt'
                    });
                    ($cnt) ? $cnt->cnt : '';
                },
                sub { # Have Usage
                    my $phone_avail = shift;
                    return '' unless $phone_avail->lata;
                    $phone_avail->lata->have_usage;
                },
              ],
              'align'         => 'rlrrr',
              'links'         => [
                '',
                '',
                '',
                '',
                '',
              ],
              'color' => [ 
                           '',
                           '',
                           '',
                           '',
                           '',
                         ],
              'style' => [ 
                           '',
                           '',
                           '',
                           '',
                           '',
                         ],
      
&>
<%init>

die "access denied"
  unless ( $FS::CurrentUser::CurrentUser->access_right('List inventory')
         && $FS::CurrentUser::CurrentUser->access_right('List services')
         );

# XXX: agent virtualize

</%init>