[freeside-commits] freeside/FS/FS AccessRight.pm, 1.18.2.8, 1.18.2.9 cust_main.pm, 1.271.2.58, 1.271.2.59 part_bill_event.pm, 1.27, 1.27.2.1

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv13259/FS/FS

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	AccessRight.pm cust_main.pm part_bill_event.pm 
Log Message:
push out event triggered suspensions

Index: part_bill_event.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_bill_event.pm,v
retrieving revision 1.27
retrieving revision 1.27.2.1
diff -u -d -r1.27 -r1.27.2.1
--- part_bill_event.pm	21 Jan 2007 21:45:28 -0000	1.27
+++ part_bill_event.pm	26 Sep 2008 03:56:40 -0000	1.27.2.1
@@ -4,6 +4,8 @@
 use vars qw( @ISA $DEBUG @EXPORT_OK );
 use FS::Record qw( dbh qsearch qsearchs );
 use FS::Conf;
+use FS::cust_main;
+use FS::cust_bill;
 
 @ISA = qw( FS::Record );
 @EXPORT_OK = qw( due_events );
@@ -234,6 +236,9 @@
   sort {    $a->seconds   <=> $b->seconds
          || $a->weight    <=> $b->weight
 	 || $a->eventpart <=> $b->eventpart }
+    grep { ref($record) ne 'FS::cust_bill' || $_->eventcode !~ /honor_dundate/
+           || $event_time > $record->cust_main->dundate
+         }
     grep { $_->seconds <= ( $interval )
            && ! qsearch( 'cust_bill_event', {
 	                   'invnum' => $record->get($record->dbdef_table->primary_key),

Index: AccessRight.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/AccessRight.pm,v
retrieving revision 1.18.2.8
retrieving revision 1.18.2.9
diff -u -d -r1.18.2.8 -r1.18.2.9
--- AccessRight.pm	8 Sep 2008 02:47:19 -0000	1.18.2.8
+++ AccessRight.pm	26 Sep 2008 03:56:40 -0000	1.18.2.9
@@ -112,6 +112,7 @@
   'Unsuspend customer package',
   'Cancel customer package immediately',
   'Cancel customer package later',
+  'Delay suspension events',
   'Add on-the-fly cancel reason', #NEW
   'Add on-the-fly suspend reason', #NEW
   'Edit customer package invoice details', #NEW

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.271.2.58
retrieving revision 1.271.2.59
diff -u -d -r1.271.2.58 -r1.271.2.59
--- cust_main.pm	12 Sep 2008 07:10:02 -0000	1.271.2.58
+++ cust_main.pm	26 Sep 2008 03:56:40 -0000	1.271.2.59
@@ -227,6 +227,8 @@
 
 =item spool_cdr - Enable individual CDR spooling, empty or `Y'
 
+=item dundate - a suggestion to events (see L<FS::part_bill_event">) to delay until this unix timestamp
+
 =back
 
 =head1 METHODS