FS/FS/part_event/Action/pkg_unsuspend.pm

   1 package FS::part_event::Action::pkg_unsuspend;
   2
   3 use strict;
   4 use base qw( FS::part_event::Action );
   5
   6 sub description { 'Unsuspend this package'; }
   7
   8 sub eventtable_hashref {
   9   { 'cust_pkg' => 1,
  10     'svc_acct' => 1, };
  11 }
  12
  13 sub default_weight { 20; }
  14
  15 sub do_action {
  16   my( $self, $object, $cust_event ) = @_;
  17   my $cust_pkg = $self->cust_pkg($object);
  18
  19   my $error = $cust_pkg->unsuspend();
  20   die $error if $error;
  21
  22   '';
  23 }
  24
  25 1;