httemplate/view/svc_pbx.cgi

   1 <% include('elements/svc_Common.html',
   2              'table'     => 'svc_pbx',
   3              'edit_url'  => $p.'edit/svc_pbx.html?',
   4              'labels'    => \%labels,
   5              'html_foot' => $html_foot,
   6           )
   7 %>
   8 <%init>
   9
  10 my $fields = FS::svc_pbx->table_info->{'fields'};
  11 my %labels = map { $_ =>  ( ref($fields->{$_})
  12                              ? $fields->{$_}{'label'}
  13                              : $fields->{$_}
  14                          );
  15                  }
  16              keys %$fields;
  17
  18 my $html_foot = sub {
  19   my $svc_pbx = shift;
  20
  21   ##
  22   # Extensions
  23   ##
  24
  25   my @pbx_extension = sort { $a->extension cmp $b->extension }
  26                         $svc_pbx->pbx_extension;
  27
  28   my $extensions = '';
  29   if ( @pbx_extension ) {
  30
  31     $extensions .= '<FONT CLASS="fsinnerbox-title">Extensions</FONT>'.
  32                    include('/elements/table-grid.html');
  33     my $bgcolor1 = '#eeeeee';
  34     my $bgcolor2 = '#ffffff';
  35     my $bgcolor = '';
  36
  37     #$extensions .= '
  38     #  <TR>
  39     #    <TH CLASS="grid" BGCOLOR="#cccccc">Ext</TH>
  40     #    <TH CLASS="grid" BGCOLOR="#cccccc">Name</TH>
  41     #  </TR>
  42     #';
  43
  44     foreach my $pbx_extension ( @pbx_extension ) {
  45       if ( $bgcolor eq $bgcolor1 ) {
  46         $bgcolor = $bgcolor2;
  47       } else {
  48         $bgcolor = $bgcolor1;
  49       }
  50
  51       $extensions .= qq(
  52         <TR>
  53           <TD CLASS="grid" BGCOLOR="$bgcolor">). $pbx_extension->extension. qq(
  54           <TD CLASS="grid" BGCOLOR="$bgcolor">). $pbx_extension->phone_name. qq(
  55         </TR>
  56       );
  57
  58     }
  59
  60     $extensions .= '</TABLE><BR>';
  61   }
  62
  63   ##
  64   # CDR links
  65   ##
  66
  67   tie my %what, 'Tie::IxHash',
  68     'pending' => 'NULL',
  69     'billed'  => 'done',
  70   ;
  71
  72   #matching as per package def cdr_svc_method
  73   my $cust_pkg = $svc_pbx->cust_svc->cust_pkg;
  74   return $extensions unless $cust_pkg;
  75
  76   my @voip_pkgs =
  77     grep { $_->plan eq 'voip_cdr' } $cust_pkg->part_pkg->self_and_bill_linked;
  78   if ( scalar(@voip_pkgs) > 1 ) {
  79     warn "multiple voip_cdr packages bundled\n";
  80     return '';
  81   } elsif ( !@voip_pkgs ) {
  82     warn "no voip_cdr packages\n";
  83   }
  84   my $voip_pkg = @voip_pkgs[0];
  85
  86   my $cdr_svc_method = ( $voip_pkg && $voip_pkg->option('cdr_svc_method') )
  87                        || 'svc_phone.phonenum';
  88   return $extensions unless $cdr_svc_method =~ /^svc_pbx\.(.*)$/;
  89   my $field = $1;
  90
  91   my $search;
  92   if ( $field eq 'title' ) {
  93     $search = 'charged_party='. uri_escape($svc_pbx->title);
  94   } elsif ( $field =~ /^ip\.(\w+)$/ ) {
  95     $search = "$1_ip_addr=". uri_escape($svc_pbx->title);
  96   } elsif ( $field eq 'svcnum' ) {
  97     $search = 'svcnum='. $svc_pbx->svcnum;
  98   } else {
  99     warn "unknown cdr_svc_method svc_pbx.$field";
 100     return $extensions
 101   }
 102
 103   my @links = map {
 104     qq(<A HREF="${p}search/cdr.html?cdrbatchnum=__ALL__;$search;freesidestatus=$what{$_}">).
 105     "View $_ CDRs</A>";
 106   } keys(%what);
 107
 108   ###
 109   # concatenate & return
 110   ###
 111
 112   $extensions.
 113   join(' | ', @links ). '<BR>';
 114
 115 };
 116
 117 </%init>