FS/FS/part_event/Action/unsuspend.pm

   1 package FS::part_event::Action::unsuspend;
   2
   3 use strict;
   4 use base qw( FS::part_event::Action );
   5
   6 sub description { 'Unsuspend all of this customer\'s suspended packages'; }
   7
   8 sub default_weight { 11; }
   9
  10 sub do_action {
  11   my( $self, $cust_object ) = @_;
  12
  13   my $cust_main = $self->cust_main($cust_object);
  14
  15   my @err = $cust_main->unsuspend();
  16
  17   die join(' / ', @err) if scalar(@err);
  18
  19   '';
  20
  21 }
  22
  23 1;