httemplate/view/svc_phone.cgi

   1 <% include('elements/svc_Common.html',
   2               'table'     => 'svc_phone',
   3               'fields'    => [qw( countrycode phonenum sip_password pin )],
   4               'labels'    => {
   5                                'countrycode'  => 'Country code',
   6                                'phonenum'     => 'Phone number',
   7                                'sip_password' => 'SIP password',
   8                                'pin'          => 'PIN',
   9                              },
  10               'html_foot' => $html_foot,
  11           )
  12 %>
  13 <%init>
  14
  15 my $html_foot = sub {
  16   my $svc_phone = shift;
  17
  18   tie my %what, 'Tie::IxHash',
  19     'pending' => 'NULL',
  20     'billed'  => 'done',
  21   ;
  22
  23   #XXX src & charged party (& default prefix) as per voip_cdr.pm
  24   #XXX handle toll free too
  25
  26   my $number = $svc_phone->phonenum;
  27
  28   #my @links = map {
  29   #  qq(<A HREF="${p}search/cdr.html?src=$number;freesidestatus=$what{$_}">).
  30   #  "View $_ CDRs</A>";
  31   #} keys(%what);
  32   my @links = map {
  33     qq(<A HREF="${p}search/cdr.html?charged_party=$number;freesidestatus=$what{$_}">).
  34     "View $_ CDRs</A>";
  35   } keys(%what);
  36
  37   my @ilinks = ( qq(<A HREF="${p}search/cdr.html?dst=$number">).
  38                  'View incoming CDRs</A>' );
  39
  40   join(' | ', @links ). '<BR>'.
  41   join(' | ', @ilinks). '<BR>';
  42
  43 };
  44
  45 </%init>