blob: 79cafed4dc270fd7ad081c221ae1440e0633a408 (
plain)
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
|
<% include('elements/svc_Common.html',
'table' => 'svc_pbx',
'edit_url' => $p."edit/svc_Common.html?svcdb=svc_pbx;svcnum=",
'labels' => \%labels,
'html_foot' => $html_foot,
)
%>
<%init>
my $fields = FS::svc_pbx->table_info->{'fields'};
my %labels = map { $_ => ( ref($fields->{$_})
? $fields->{$_}{'label'}
: $fields->{$_}
);
}
keys %$fields;
my $html_foot = sub {
my $svc_pbx = shift;
##
# CDR links
##
tie my %what, 'Tie::IxHash',
'pending' => 'NULL',
'billed' => 'done',
;
#matching as per package def cdr_svc_method
my $cust_pkg = $svc_pbx->cust_svc->cust_pkg;
return '' unless $cust_pkg;
my @voip_pkgs =
grep { $_->plan eq 'voip_cdr' } $cust_pkg->part_pkg->self_and_bill_linked;
if ( scalar(@voip_pkgs) > 1 ) {
warn "multiple voip_cdr packages bundled\n";
return '';
} elsif ( !@voip_pkgs ) {
warn "no voip_cdr packages\n";
}
my $voip_pkg = @voip_pkgs[0];
my $cdr_svc_method = $voip_pkg->option('cdr_svc_method')
|| 'svc_phone.phonenum';
return '' unless $cdr_svc_method =~ /^svc_pbx\.(\w+)$/;
my $field = $1;
my $search;
if ( $field eq 'title' ) {
$search = 'charged_party='. uri_escape($svc_pbx->title);
} elsif ( $field eq 'svcnum' ) {
$search = 'svcnum='. $svc_pbx->svcnum;
} else {
warn "unknown cdr_svc_method svc_pbx.$field";
return '';
}
my @links = map {
qq(<A HREF="${p}search/cdr.html?cdrbatchnum=__ALL__;$search;freesidestatus=$what{$_}">).
"View $_ CDRs</A>";
} keys(%what);
###
# concatenate & return
###
join(' | ', @links ). '<BR>';
};
</%init>
|
