projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Wholesale CDR cost re-billing, RT#27555
[freeside.git]
/
FS
/
FS
/
part_pkg
/
agent.pm
diff --git
a/FS/FS/part_pkg/agent.pm
b/FS/FS/part_pkg/agent.pm
index
4a87728
..
b122ff1
100644
(file)
--- a/
FS/FS/part_pkg/agent.pm
+++ b/
FS/FS/part_pkg/agent.pm
@@
-40,7
+40,7
@@
$me = '[FS::part_pkg::agent]';
'fieldorder' => [qw( cutoff_day add_full_period no_pkg_prorate ) ],
'fieldorder' => [qw( cutoff_day add_full_period no_pkg_prorate ) ],
- 'weight' => 5
1
,
+ 'weight' => 5
2
,
);
);
@@
-102,11
+102,15
@@
sub calc_recur {
if $DEBUG;
my $pkg_details = $cust_main->name_short. ': '; #name?
if $DEBUG;
my $pkg_details = $cust_main->name_short. ': '; #name?
+
+ my $part_pkg = $cust_pkg->part_pkg;
+
# + something to identify package... primary service probably
# + something to identify package... primary service probably
+ # no... package def for now
+ $pkg_details .= $part_pkg->pkg. ': ';
my $pkg_charge = 0;
my $pkg_charge = 0;
- my $part_pkg = $cust_pkg->part_pkg;
#option to not fallback? via options above
my $pkg_setup_fee =
$part_pkg->setup_cost || $part_pkg->option('setup_fee');
#option to not fallback? via options above
my $pkg_setup_fee =
$part_pkg->setup_cost || $part_pkg->option('setup_fee');