X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FAction%2Fsuspend.pm;fp=FS%2FFS%2Fpart_event%2FAction%2Fsuspend.pm;h=c77728e61a740034cbf6280280750640781d8b44;hp=ec440ffd22e44b0404f4844b06eea1cf930ea37e;hb=58f99accce35aa76abe9ff852f6c6ee84e8ce712;hpb=1d84feb7fe821b547e211ad03e5c200c8f218797 diff --git a/FS/FS/part_event/Action/suspend.pm b/FS/FS/part_event/Action/suspend.pm index ec440ffd2..c77728e61 100644 --- a/FS/FS/part_event/Action/suspend.pm +++ b/FS/FS/part_event/Action/suspend.pm @@ -3,9 +3,7 @@ package FS::part_event::Action::suspend; use strict; use base qw( FS::part_event::Action ); -sub description { - 'Suspend'; -} +sub description { 'Suspend'; } sub option_fields { ( @@ -14,12 +12,10 @@ sub option_fields { 'reason_class' => 'S', }, ); -}; - -sub default_weight { - 10; } +sub default_weight { 10; } + sub do_action { my( $self, $cust_object ) = @_;