1 package FS::part_event::Action;
4 use base qw( FS::part_event );
9 FS::part_event::Action - Base class for event actions
13 package FS::part_event::Action::myaction;
15 use base FS::part_event::Action;
19 FS::part_event::Action is a base class for event action classes.
23 These methods are implemented in each action class.
29 Action classes must define a description method. This method should return a
30 scalar description of the action.
32 =item eventtable_hashref
34 Action classes must define a eventtable_hashref method if they can only be
35 triggered against some kinds of tables. This method should return a hash
36 reference of eventtables (values set true indicate the action can be performed):
38 sub eventtable_hashref {
42 'cust_pay_batch' => 0,
49 sub eventtable_hashref {
53 'cust_pay_batch' => 1,
60 Action classes may define an event_stage method to indicate a preference
61 for being run at a non-standard stage of the billing and collection process.
63 This method may currently return "collect" (the default) or "pre-bill".
73 Action classes may define an option_fields method to indicate that they
74 accept one or more options.
76 This method should return a list of option names and option descriptions.
77 Each option description can be a scalar description, for simple options, or a
78 hashref with the following values:
82 =item label - Description
84 =item type - Currently text, money, checkbox, checkbox-multiple, select, select-agent, select-pkg_class, select-part_referral, select-table, fixed, hidden, (others can be implemented as httemplate/elements/tr-TYPE.html mason components). Defaults to text.
86 =item size - Size for text fields
88 =item options - For checkbox-multiple and select, a list reference of available option values.
90 =item option_labels - For select, a hash reference of availble option values and labels.
92 =item value - for checkbox, fixed, hidden
94 =item table - for select-table
96 =item name_col - for select-table
98 =item NOTE: See httemplate/elements/select-table.html for a full list of the optinal options for the select-table type
102 NOTE: A database connection is B<not> yet available when this subroutine is
109 'field' => 'description',
111 'another_field' => { 'label'=>'Amount', 'type'=>'money', },
113 'third_field' => { 'label' => 'Types',
115 'options' => [ 'h', 's' ],
116 'option_labels' => { 'h' => 'Happy',
131 Action classes may define a default weighting. Weights control execution order
132 relative to other actions (that are triggered at the same time).
143 Action classes may define a deprecated method that returns true, indicating
144 that this action is deprecated.
153 =item do_action CUSTOMER_EVENT_OBJECT
155 Action classes must define an action method. This method is triggered if
156 all conditions have been met.
158 The object which triggered the event (an FS::cust_main, FS::cust_bill or
159 FS::cust_pkg object) is passed as an argument.
161 To retreive option values, call the option method on the desired option, i.e.:
163 my( $self, $cust_object ) = @_;
164 $value_of_field = $self->option('field');
166 To indicate sucessful completion, simply return. Optionally, you can return a
167 string of information status information about the sucessful completion, or
168 simply return the empty string.
170 To indicate a failure and that this event should retry, die with the desired
177 These methods are defined in the base class for use in action classes.
181 =item cust_main CUST_OBJECT
183 Return the customer object (see L<FS::cust_main>) associated with the provided
184 object (the object itself if it is already a customer object).
189 my( $self, $cust_object ) = @_;
191 $cust_object->isa('FS::cust_main') ? $cust_object : $cust_object->cust_main;
195 =item cust_pkg OBJECT
197 Return the package object (L<FS::cust_pkg>) associated with the provided
198 object. The object must be either a service (L<FS::svc_Common>) or a
204 my( $self, $object ) = @_;
205 $object->isa('FS::cust_pkg') ? $object :
206 $object->isa('FS::svc_Common') ? $object->cust_svc->cust_pkg :
210 =item option_label OPTIONNAME
212 Returns the label for the specified option name.
217 my( $self, $optionname ) = @_;
219 my %option_fields = $self->option_fields;
221 ref( $option_fields{$optionname} )
222 ? $option_fields{$optionname}->{'label'}
223 : $option_fields{$optionname}
227 =item option_fields_hashref
229 Returns the option fields as an (ordered) hash reference.
233 sub option_fields_hashref {
235 tie my %hash, 'Tie::IxHash', $self->option_fields;
239 =item option_fields_listref
241 Returns just the option field names as a list reference.
245 sub option_fields_listref {
247 my $hashref = $self->option_fields_hashref;