- ($cnt) ? $cnt->cnt : '';
- },
- sub { # Have Usage
- my $phone_avail = shift;
- return '' unless $phone_avail->latanum;
- my $latanum = $phone_avail->latanum;
- my $count = 0;
- my $sql = "select count(1) from cdr where src in
- (select phonenum from svc_phone where svcnum in (
- select svcnum from phone_avail where latanum = $latanum
- and svcnum is not null) )
- or charged_party in (select phonenum from svc_phone where
- svcnum in (select svcnum from phone_avail where
- latanum = $latanum and svcnum is not null) )";
- my $c = $phone_avail->scalar_sql($sql);
- $count++ if $c > 0;
- $count;
- },
+ ($cnt) ? $cnt->cnt : '';
+ },
+ sub { # Have Usage
+ my $phone_avail = shift;
+ return '' unless $phone_avail->lata;
+ $phone_avail->lata->have_usage;
+ },