httemplate/view/svc_phone.cgi

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