sub default_weight { 20; }
sub do_action {
- my( $self, $cust_pkg, $cust_event ) = @_;
+ my( $self, $object, $cust_event ) = @_;
+ my $cust_pkg = $self->cust_pkg($object);
my $error = $cust_pkg->cancel( 'reason' => $self->option('reasonnum') );
die $error if $error;