From: ivan <ivan>
Date: Mon, 7 Oct 2002 08:47:13 +0000 (+0000)
Subject: cancel when it is *after* expiration date, not when it is *before*
X-Git-Tag: freeside_1_4_1beta4~18
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3c05b1a31ac350fd2756d51c2f798e5bb9801f04;p=freeside.git

cancel when it is *after* expiration date, not when it is *before*
---

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 ".