diff options
| author | ivan <ivan> | 2002-06-12 16:26:52 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-06-12 16:26:52 +0000 |
| commit | 1f637f27c25b2c402261e519094fb8b9d683935a (patch) | |
| tree | eba7bee0f61546e53fd9ae98d90160c60939956f /FS | |
| parent | 7f7fb08833dd4a006adc45fe5deb9931f3aee94e (diff) | |
fix problems with code that resets invoice events
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index b6600fb29..6be6cdb74 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -493,7 +493,10 @@ sub replace { && $_->status eq 'done' && $_->statustext } - $self->open_cust_bill->cust_bill_event + map { $_->cust_bill_event } + grep { $_->cust_bill_event } + $self->open_cust_bill + ) { my $error = $cust_bill_event->retry; if ( $error ) { @@ -1237,7 +1240,9 @@ sub collect { && $_->status eq 'done' && $_->statustext } - $self->open_cust_bill->cust_bill_event + map { $_->cust_bill_event } + grep { $_->cust_bill_event } + $self->open_cust_bill ) { my $error = $cust_bill_event->retry; if ( $error ) { |