<% include('elements/svc_Common.html', 'table' => 'svc_phone', 'fields' => [qw( countrycode phonenum sip_password pin phone_name )], 'labels' => { 'countrycode' => 'Country code', 'phonenum' => 'Phone number', 'sip_password' => 'SIP password', 'pin' => 'PIN', 'phone_name' => 'Name', }, '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; $number = $svc_phone->countrycode. $number unless $svc_phone->countrycode eq '1'; #my @links = map { # qq(). # "View $_ CDRs"; #} keys(%what); my @links = map { qq(). "View $_ CDRs"; } keys(%what); my @ilinks = ( qq(). 'View incoming CDRs' ); join(' | ', @links ). '
'. join(' | ', @ilinks). '
'; };