1 package FS::part_event::Action::cust_bill_suspend;
4 use base qw( FS::part_event::Action );
6 sub description { 'Suspend packages on this invoice'; }
8 sub eventtable_hashref {
14 'reasonnum' => { 'label' => 'Reason',
15 'type' => 'select-reason',
16 'reason_class' => 'S',
18 'suspend_bill' => { 'label' => 'Continue recurring billing while suspended',
25 sub default_weight { 10; }
28 my( $self, $cust_bill ) = @_;
30 my @err = $cust_bill->suspend(
31 'reason' => $self->option('reasonnum'),
32 'options' => { 'suspend_bill' => $self->option('suspend_bill') },
35 die join(' / ', @err) if scalar(@err);