<% include('elements/svc_Common.html', 'table' => 'svc_phone', 'fields' => [qw( countrycode phonenum pin )], 'labels' => { 'countrycode' => 'Country code', 'phonenum' => 'Phone number', 'pin' => 'PIN', }, 'html_foot' => $html_foot, ) %> <%init> my $html_foot = sub { my $svc_phone = shift; tie my %what, 'Tie::IxHash', 'pending' => 'NULL', 'billed' => 'done', ; #XXX src & charged party (& default prefix) as per voip_cdr.pm #XXX handle toll free too my $number = $svc_phone->phonenum; my @links = map { qq(). "View $_ CDRs"; } keys(%what); join(' | ', @links). '
'; };