diff options
author | Ivan Kohler <ivan@freeside.biz> | 2019-10-24 19:55:40 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2019-10-24 19:55:40 -0700 |
commit | 4d0392a07d82ee1e0002218410d47b7021d30977 (patch) | |
tree | 114114e8bd295c0c99def40aae165a05daba2fe1 /FS/FS | |
parent | 23c155d0e96cd65a5e678a018254c9399eaccb9b (diff) |
suspend event option to skip packages with a start_date, RT#83847
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cust_main.pm | 10 | ||||
-rw-r--r-- | FS/FS/part_event/Action/suspend.pm | 29 |
2 files changed, 27 insertions, 12 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 49760a1..801aa8c 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2304,8 +2304,14 @@ Returns a list: an empty list on success or a list of errors. =cut sub suspend { - my $self = shift; - grep { $_->suspend(@_) } $self->unsuspended_pkgs; + my($self, %opt) = @_; + + my @pkgs = $self->unsuspended_pkgs; + + @pkgs = grep { ! $_->get('start_date') } @pkgs + if $opt{skip_future_startdate}; + + grep { $_->suspend(%opt) } @pkgs; } =item suspend_if_pkgpart HASHREF | PKGPART [ , PKGPART ... ] diff --git a/FS/FS/part_event/Action/suspend.pm b/FS/FS/part_event/Action/suspend.pm index 84a7101..6a84836 100644 --- a/FS/FS/part_event/Action/suspend.pm +++ b/FS/FS/part_event/Action/suspend.pm @@ -7,14 +7,21 @@ sub description { 'Suspend all of this customer\'s packages'; } sub option_fields { ( - 'reasonnum' => { 'label' => 'Reason', - 'type' => 'select-reason', - 'reason_class' => 'S', - }, - 'suspend_bill' => { 'label' => 'Continue recurring billing while suspended', - 'type' => 'checkbox', - 'value' => 'Y', - }, + 'reasonnum' => { + 'label' => 'Reason', + 'type' => 'select-reason', + 'reason_class' => 'S', + }, + 'suspend_bill' => { + 'label' => 'Continue recurring billing while suspended', + 'type' => 'checkbox', + 'value' => 'Y', + }, + 'skip_future_startdate' => { + 'label' => "Don't suspend packages with a future start date", + 'type' => 'checkbox', + 'value' => 'Y', + }, ); } @@ -26,8 +33,10 @@ sub do_action { my $cust_main = $self->cust_main($cust_object); my @err = $cust_main->suspend( - 'reason' => $self->option('reasonnum'), - 'options' => { 'suspend_bill' => $self->option('suspend_bill') }, + 'skip_future_startdate' => $self->option('skip_future_startdate'), + 'reason' => $self->option('reasonnum'), + 'options' => { 'suspend_bill' => $self->option('suspend_bill') + }, ); die join(' / ', @err) if scalar(@err); |