projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5a218e8
)
fix bug(s) introduced with billing loop refactor
author
jeff
<jeff>
Wed, 6 Aug 2008 04:05:54 +0000
(
04:05
+0000)
committer
jeff
<jeff>
Wed, 6 Aug 2008 04:05:54 +0000
(
04:05
+0000)
FS/FS/cust_main.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
b74c75d
..
8873a5b
100644
(file)
--- a/
FS/FS/cust_main.pm
+++ b/
FS/FS/cust_main.pm
@@
-2092,9
+2092,11
@@
sub bill {
my $real_pkgpart = $cust_pkg->pkgpart;
my %hash = $cust_pkg->hash;
my $real_pkgpart = $cust_pkg->pkgpart;
my %hash = $cust_pkg->hash;
- my $old_cust_pkg = new FS::cust_pkg \%hash;
foreach my $part_pkg ( $cust_pkg->part_pkg->self_and_bill_linked ) {
foreach my $part_pkg ( $cust_pkg->part_pkg->self_and_bill_linked ) {
+
+ $cust_pkg->set($_, $hash{$_}) foreach qw ( setup last_bill bill );
+
my $error =
$self->_make_lines( 'part_pkg' => $part_pkg,
'cust_pkg' => $cust_pkg,
my $error =
$self->_make_lines( 'part_pkg' => $part_pkg,
'cust_pkg' => $cust_pkg,
@@
-2302,13
+2304,12
@@
sub _make_lines {
my %hash = $cust_pkg->hash;
my $old_cust_pkg = new FS::cust_pkg \%hash;
my %hash = $cust_pkg->hash;
my $old_cust_pkg = new FS::cust_pkg \%hash;
- $cust_pkg->pkgpart($part_pkg->pkgpart);
- $cust_pkg->set($_, $hash{$_}) foreach qw( setup last_bill bill );
-
my @details = ();
my $lineitems = 0;
my @details = ();
my $lineitems = 0;
+ $cust_pkg->pkgpart($part_pkg->pkgpart);
+
###
# bill setup
###
###
# bill setup
###