projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dd02aa5
)
whitespace
author
Ivan Kohler
<ivan@freeside.biz>
Thu, 21 Aug 2014 07:31:08 +0000
(
00:31
-0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Thu, 21 Aug 2014 07:31:08 +0000
(
00:31
-0700)
FS/FS/part_pkg/cdr_termination.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_pkg/cdr_termination.pm
b/FS/FS/part_pkg/cdr_termination.pm
index
9011846
..
5413c18
100644
(file)
--- a/
FS/FS/part_pkg/cdr_termination.pm
+++ b/
FS/FS/part_pkg/cdr_termination.pm
@@
-74,11
+74,11
@@
tie my %temporalities, 'Tie::IxHash',
},
#cdr_column
},
#cdr_column
- 'fieldorder' => [qw( recur_temporality recur_method cutoff_day ),
-
FS::part_pkg::prorate_Mixin::fieldorder,
-
qw(
+ 'fieldorder' => [
qw( recur_temporality recur_method cutoff_day ),
+ FS::part_pkg::prorate_Mixin::fieldorder,
+ qw(
output_format usage_section summarize_usage usage_mandate
output_format usage_section summarize_usage usage_mandate
- )
+ ),
],
'weight' => 48,
],
'weight' => 48,
@@
-106,9
+106,8
@@
sub calc_recur {
my $charges = 0;
#find an svc_external record
my $charges = 0;
#find an svc_external record
- my @svc_external = map { $_->svc_x }
- grep { $_->part_svc->svcdb eq 'svc_external' }
- $cust_pkg->cust_svc;
+ my @svc_external = map { $_->svc_x }
+ $cust_pkg->cust_svc_unsorted( svcdb=>'svc_external' );
die "cdr_termination package has no svc_external service"
unless @svc_external;
die "cdr_termination package has no svc_external service"
unless @svc_external;