diff options
| author | ivan <ivan> | 2002-10-07 08:47:13 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-10-07 08:47:13 +0000 |
| commit | 3c05b1a31ac350fd2756d51c2f798e5bb9801f04 (patch) | |
| tree | fe0f6295a9880a5e38cd7d4bbee8eabe22d31c8f | |
| parent | 915048e11feccc0206e72ecc64435fe99ba2e720 (diff) | |
cancel when it is *after* expiration date, not when it is *before*
| -rwxr-xr-x | FS/bin/freeside-daily | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily index 52028b773..17ee798ff 100755 --- a/FS/bin/freeside-daily +++ b/FS/bin/freeside-daily @@ -30,7 +30,7 @@ foreach $cust_main ( @cust_main ) { # $^T not $time because -d is for pre-printing invoices foreach my $cust_pkg ( - grep { $_->expire && $_->expire >= $^T } $cust_main->ncancelled_pkgs + grep { $_->expire && $_->expire <= $^T } $cust_main->ncancelled_pkgs ) { my $error = $cust_pkg->cancel; warn "Error cancelling expired pkg ". $cust_pkg->pkgnum. " for custnum ". |