diff options
author | ivan <ivan> | 2007-08-01 22:26:52 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-08-01 22:26:52 +0000 |
commit | eb4ff7f73c5d4bdf74a3472448b5a195598ff4cd (patch) | |
tree | bb38241e8c865c3bca861da7749071feeadd2b5b /eg | |
parent | 32b5d3a31f112a381f0a15ac5e3a2204242f3405 (diff) |
event refactor, landing on HEAD!
Diffstat (limited to 'eg')
-rw-r--r-- | eg/part_event-Action-template.pm | 55 | ||||
-rw-r--r-- | eg/part_event-Condition-template.pm | 57 |
2 files changed, 112 insertions, 0 deletions
diff --git a/eg/part_event-Action-template.pm b/eg/part_event-Action-template.pm new file mode 100644 index 000000000..c2f5ba58f --- /dev/null +++ b/eg/part_event-Action-template.pm @@ -0,0 +1,55 @@ +package FS::part_event::Action::myaction; + +use strict; + +use base qw( FS::part_event::Action ); + +# see the FS::part_event::Action manpage for full documentation on each +# of the required and optional methods. + +sub description { + 'New action (the author forgot to change this description)'; +} + +#sub eventtable_hashref { +# { 'cust_main' => 1, +# 'cust_bill' => 1, +# 'cust_pkg' => 1, +# }; +#} + +#sub option_fields { +# ( +# 'field' => 'description', +# +# 'another_field' => { 'label'=>'Amount', 'type'=>'money', }, +# +# 'third_field' => { 'label' => 'Types', +# 'type' => 'select', +# 'options' => [ 'h', 's' ], +# 'option_labels' => { 'h' => 'Happy', +# 's' => 'Sad', +# }, +# ); +#} + +#sub default_weight { +# 100; +#} + + +sub do_action { + my( $self, $object ) = @_; + + my $cust_main = $self->cust_main($object); + + my $value_of_field = $self->option('field'); + + #do your action + + #die "Error: $error"; + return 'Null example action completed sucessfully.'; + +} + +1; diff --git a/eg/part_event-Condition-template.pm b/eg/part_event-Condition-template.pm new file mode 100644 index 000000000..cc05843b4 --- /dev/null +++ b/eg/part_event-Condition-template.pm @@ -0,0 +1,57 @@ +package FS::part_event::Condition::mycondition; + +use strict; + +use base qw( FS::part_event::Condition ); + +# see the FS::part_event::Condition manpage for full documentation on each +# of the required and optional methods. + +sub description { + 'New condition (the author forgot to change this description)'; +} + +#sub eventtable_hashref { +# { 'cust_main' => 1, +# 'cust_bill' => 1, +# 'cust_pkg' => 1, +# 'cust_pay_batch' => 1, +# }; +#} + +#sub option_fields { +# ( +# 'field' => 'description', +# +# 'another_field' => { 'label'=>'Amount', 'type'=>'money', }, +# +# 'third_field' => { 'label' => 'Types', +# 'type' => 'checkbox-multiple', +# 'options' => [ 'h', 's' ], +# 'option_labels' => { 'h' => 'Happy', +# 's' => 'Sad', +# }, +# ); +#} + +sub condition { + my($self, $object, %opt) = @_; + + my $cust_main = $self->cust_main($object); + + my $value_of_field = $self->option('field'); + + my $time = $opt{'time'}; #use this instead of time or $^T + + #test your condition + 1; + +} + +#sub condition_sql { +# my( $class, $table ) = @_; +# #... +# 'true'; +#} + +1; |