1 package FS::part_event::Action::cust_bill_cancel;
4 use base qw( FS::part_event::Action );
6 sub description { 'Cancel packages on this invoice'; }
8 sub eventtable_hashref {
14 'reasonnum' => { 'label' => 'Reason',
15 'type' => 'select-reason',
16 'reason_class' => 'C',
21 sub default_weight { 10; }
24 my( $self, $cust_bill ) = @_;
26 my @err = $cust_bill->cancel(
27 'reason' => $self->option('reasonnum'),
30 die join(' / ', @err) if scalar(@err);