X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FAction%2Fcancel.pm;h=b9d6d2996a35345a26befeb73dc453524f2af4f9;hb=58f99accce35aa76abe9ff852f6c6ee84e8ce712;hp=94f314602997cf23ac151c8807d6ba08e19885f0;hpb=1d84feb7fe821b547e211ad03e5c200c8f218797;p=freeside.git diff --git a/FS/FS/part_event/Action/cancel.pm b/FS/FS/part_event/Action/cancel.pm index 94f314602..b9d6d2996 100644 --- a/FS/FS/part_event/Action/cancel.pm +++ b/FS/FS/part_event/Action/cancel.pm @@ -3,9 +3,7 @@ package FS::part_event::Action::cancel; use strict; use base qw( FS::part_event::Action ); -sub description { - 'Cancel'; -} +sub description { 'Cancel'; } sub option_fields { ( @@ -14,13 +12,10 @@ sub option_fields { 'reason_class' => 'C', }, ); - -}; - -sub default_weight { - 20; } +sub default_weight { 20; } + sub do_action { my( $self, $cust_object ) = @_;