[freeside-commits] freeside/FS/FS/Cron bill.pm, 1.4, 1.5 notify.pm, 1.2, 1.3
Jeff Finucane,420,,
jeff at wavetail.420.am
Tue Jun 26 08:37:20 PDT 2007
- Previous message: [freeside-commits] freeside/FS/FS AccessRight.pm, 1.19, 1.20 Schema.pm, 1.54, 1.55 cust_main.pm, 1.288, 1.289 cust_pkg.pm, 1.77, 1.78
- Next message: [freeside-commits] freeside/httemplate/edit REAL_cust_pkg.cgi, 1.12, 1.13
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /home/cvs/cvsroot/freeside/FS/FS/Cron
In directory wavetail:/tmp/cvs-serv2558/FS/FS/Cron
Modified Files:
bill.pm notify.pm
Log Message:
suspend later just like expire (#1487)
Index: bill.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Cron/bill.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- bill.pm 9 Jun 2007 00:42:10 -0000 1.4
+++ bill.pm 26 Jun 2007 15:37:18 -0000 1.5
@@ -34,6 +34,7 @@
and ( setup is null or setup = 0
or bill is null or bill <= $time
or ( expire is not null and expire <= $^T )
+ or ( adjourn is not null and adjourn <= $^T )
)
)
END
@@ -91,8 +92,10 @@
}
# $^T not $time because -d is for pre-printing invoices
foreach my $cust_pkg (
- grep { $_->part_pkg->is_prepaid
- && $_->bill && $_->bill < $^T && ! $_->susp
+ grep { ( $_->part_pkg->is_prepaid && $_->bill && $_->bill < $^T
+ || $_->adjourn && $_->adjourn <= $^T
+ )
+ && ! $_->susp
}
$cust_main->ncancelled_pkgs
) {
Index: notify.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Cron/notify.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- notify.pm 14 Feb 2007 03:12:26 -0000 1.2
+++ notify.pm 26 Jun 2007 15:37:18 -0000 1.3
@@ -42,6 +42,11 @@
or cust_pkg.expire > $time
+ cast(part_pkg_option.optionvalue as integer)
* 86400
+/* and ( cust_pkg.adjourn is null
+ or cust_pkg.adjourn > $time
+-- Should notify suspended ones + cast(part_pkg_option.optionvalue as integer)
+ * 86400
+*/
)
)
)
- Previous message: [freeside-commits] freeside/FS/FS AccessRight.pm, 1.19, 1.20 Schema.pm, 1.54, 1.55 cust_main.pm, 1.288, 1.289 cust_pkg.pm, 1.77, 1.78
- Next message: [freeside-commits] freeside/httemplate/edit REAL_cust_pkg.cgi, 1.12, 1.13
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the freeside-commits
mailing list