1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
<& elements/svc_Common.html,
'table' => 'svc_phone',
'fields' => \@fields,
'labels' => \%labels,
'html_foot' => $html_foot,
&>
<%init>
my $conf = new FS::Conf;
my $countrydefault = $conf->config('countrydefault') || 'US';
my $fields = FS::svc_phone->table_info->{'fields'};
my %labels = map { $_ => ( ref($fields->{$_})
? $fields->{$_}{'label'}
: $fields->{$_}
);
} keys %$fields;
my @fields = qw( countrycode phonenum );
push @fields, 'domain' if $conf->exists('svc_phone-domain');
push @fields, qw( pbx_title sip_password pin phone_name forwarddst email );
if ( $conf->exists('svc_phone-lnp') ) {
push @fields, 'lnp_status',
'lnp_reject_reason',
{ field => 'portable', type => 'checkbox', },
'lrn',
{ field => 'lnp_desired_due_date', type => 'date', },
{ field => 'lnp_due_date', type => 'date', },
'lnp_other_provider',
'lnp_other_provider_account';
}
my $html_foot = sub {
my $svc_phone = shift;
###
# E911 Info
###
my $e911 =
emt('E911 Information').
&ntable("#cccccc"). '<TR><TD>'. ntable("#cccccc",2).
'<TR><TD>'.emt('Location').'</TD>'.
'<TD BGCOLOR="#FFFFFF">'.
$svc_phone->location_label( 'join_string' => '<BR>',
'double_space' => ' ',
'escape_function' => \&encode_entities,
'countrydefault' => $countrydefault,
).
'</TD></TR>'.
'</TABLE></TD></TR></TABLE>'.
'<BR>'
;
###
# Devices
###
my $devices = include('/view/elements/svc_devices.html',
'svc_x' => $svc_phone,
'table' => 'phone_device',
);
##
# CDR links
##
tie my %what, 'Tie::IxHash',
'pending' => 'NULL',
'billed' => 'done',
'skipped' => 'failed',
;
my $number = $svc_phone->phonenum;
$number = $svc_phone->countrycode. $number
unless $svc_phone->countrycode eq '1';
#src & charged party as per voip_cdr.pm
#XXX handle toll free too
my $search = "charged_party_or_src=";
my $cust_pkg = $svc_phone->cust_svc->cust_pkg;
if ( $cust_pkg ) {
#XXX handle voip_inbound too
my @part_pkg = grep { $_->plan eq 'voip_cdr' }
$cust_pkg->part_pkg->self_and_bill_linked;
foreach my $prefix (grep $_, map $_->option('default_prefix'), @part_pkg) {
$number .= ",$prefix$number";
}
$search = 'charged_party='
unless !@part_pkg || grep { ! $_->option('disable_src',1) } @part_pkg;
}
$search .= $number;
my @links = map {
qq(<A HREF="${p}search/cdr.html?cdrbatchnum=__ALL__;$search;freesidestatus=$what{$_}">).
"View $_ CDRs</A>";
} keys(%what);
my @ilinks = ( qq(<A HREF="${p}search/cdr.html?cdrbatchnum=__ALL__;dst=$number">).
'View incoming CDRs</A>' );
###
# concatenate & return
###
$e911.
$devices.
join(' | ', @links ). '<BR>'.
join(' | ', @ilinks). '<BR>';
};
</%init>
|