diff options
Diffstat (limited to 'FS/FS/part_event/Action')
22 files changed, 0 insertions, 815 deletions
diff --git a/FS/FS/part_event/Action/addpost.pm b/FS/FS/part_event/Action/addpost.pm deleted file mode 100644 index e0e3fa8..0000000 --- a/FS/FS/part_event/Action/addpost.pm +++ /dev/null @@ -1,24 +0,0 @@ -package FS::part_event::Action::addpost; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Add postal invoicing'; -} - -sub default_weight { - 20; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - $cust_main->invoicing_list_addpost(); - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/apply.pm b/FS/FS/part_event/Action/apply.pm deleted file mode 100644 index f91c604..0000000 --- a/FS/FS/part_event/Action/apply.pm +++ /dev/null @@ -1,28 +0,0 @@ -package FS::part_event::Action::apply; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Apply unapplied payments and credits'; -} - -sub deprecated { - 1; -} - -sub default_weight { - 70; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - $cust_main->apply_payments_and_credits; - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/bill.pm b/FS/FS/part_event/Action/bill.pm deleted file mode 100644 index fec025f..0000000 --- a/FS/FS/part_event/Action/bill.pm +++ /dev/null @@ -1,30 +0,0 @@ -package FS::part_event::Action::bill; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - #'Generate invoices (normally only used with a <i>Late Fee</i> event)'; - 'Generate invoices (normally only used with a Late Fee event)'; -} - -sub deprecated { - 1; -} - -sub default_weight { - 60; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - my $error = $cust_main->bill; - die $error if $error; - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/cancel.pm b/FS/FS/part_event/Action/cancel.pm deleted file mode 100644 index 94f3146..0000000 --- a/FS/FS/part_event/Action/cancel.pm +++ /dev/null @@ -1,35 +0,0 @@ -package FS::part_event::Action::cancel; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Cancel'; -} - -sub option_fields { - ( - 'reasonnum' => { 'label' => 'Reason', - 'type' => 'select-reason', - 'reason_class' => 'C', - }, - ); - -}; - -sub default_weight { - 20; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - my $error = $cust_main->cancel( 'reason' => $self->option('reasonnum') ); - die $error if $error; - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/collect.pm b/FS/FS/part_event/Action/collect.pm deleted file mode 100644 index fa94b7d..0000000 --- a/FS/FS/part_event/Action/collect.pm +++ /dev/null @@ -1,30 +0,0 @@ -package FS::part_event::Action::collect; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - #'Collect on invoices (normally only used with a <i>Late Fee</i> and <i>Generate Invoice</i> events)'; - 'Collect on invoices (normally only used with a Late Fee and Generate Invoice events)'; -} - -sub deprecated { - 1; -} - -sub default_weight { - 80; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - my $error = $cust_main->collect; - die $error if $error; - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_batch.pm b/FS/FS/part_event/Action/cust_bill_batch.pm deleted file mode 100644 index aec0925..0000000 --- a/FS/FS/part_event/Action/cust_bill_batch.pm +++ /dev/null @@ -1,31 +0,0 @@ -package FS::part_event::Action::cust_bill_batch; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Add card or check to a pending batch'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub default_weight { - 40; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->batch_card; # ( %options ); #XXX options?? -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_comp.pm b/FS/FS/part_event/Action/cust_bill_comp.pm deleted file mode 100644 index 636a66d..0000000 --- a/FS/FS/part_event/Action/cust_bill_comp.pm +++ /dev/null @@ -1,34 +0,0 @@ -package FS::part_event::Action::cust_bill_comp; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Pay invoice with a complimentary "payment"'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub default_weight { - 30; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - my $error = $cust_bill->comp; - die $error if $error; - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_fee_percent.pm b/FS/FS/part_event/Action/cust_bill_fee_percent.pm deleted file mode 100644 index 100fc8b..0000000 --- a/FS/FS/part_event/Action/cust_bill_fee_percent.pm +++ /dev/null @@ -1,40 +0,0 @@ -package FS::part_event::Action::cust_bill_fee_percent; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Late fee (percentage of invoice)'; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub option_fields { - ( - 'percent' => { label=>'Percent', size=>2, }, - 'reason' => 'Reason', - ); -} - -sub default_weight { - 10; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - my $error = $cust_main->charge( - sprintf('%.2f', $cust_bill->owed * $self->option('percent') / 100 ), - $self->option('reason') - ); - die $error if $error; - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_realtime_card.pm b/FS/FS/part_event/Action/cust_bill_realtime_card.pm deleted file mode 100644 index 471c946..0000000 --- a/FS/FS/part_event/Action/cust_bill_realtime_card.pm +++ /dev/null @@ -1,32 +0,0 @@ -package FS::part_event::Action::cust_bill_realtime_card; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - #'Run card with a <a href="http://420.am/business-onlinepayment/">Business::OnlinePayment</a> realtime gateway'; - 'Run card with a Business::OnlinePayment realtime gateway'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub default_weight { - 30; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->realtime_card; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_realtime_check.pm b/FS/FS/part_event/Action/cust_bill_realtime_check.pm deleted file mode 100644 index 9a52830..0000000 --- a/FS/FS/part_event/Action/cust_bill_realtime_check.pm +++ /dev/null @@ -1,32 +0,0 @@ -package FS::part_event::Action::cust_bill_realtime_check; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - #'Run check with a <a href="http://420.am/business-onlinepayment/">Business::OnlinePayment</a> realtime gateway'; - 'Run check with a Business::OnlinePayment realtime gateway'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub default_weight { - 30; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->realtime_ach; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_realtime_lec.pm b/FS/FS/part_event/Action/cust_bill_realtime_lec.pm deleted file mode 100644 index db091da..0000000 --- a/FS/FS/part_event/Action/cust_bill_realtime_lec.pm +++ /dev/null @@ -1,32 +0,0 @@ -package FS::part_event::Action::cust_bill_realtime_lec; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - #'Run phone bill ("LEC") billing with a <a href="http://420.am/business-onlinepayment/">Business::OnlinePayment</a> realtime gateway'; - 'Run phone bill ("LEC") billing with a Business::OnlinePayment realtime gateway'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub default_weight { - 30; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->realtime_lec; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_send.pm b/FS/FS/part_event/Action/cust_bill_send.pm deleted file mode 100644 index 9330c61..0000000 --- a/FS/FS/part_event/Action/cust_bill_send.pm +++ /dev/null @@ -1,27 +0,0 @@ -package FS::part_event::Action::cust_bill_send; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Send invoice (email/print/fax)'; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub default_weight { - 50; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->send; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_send_agent.pm b/FS/FS/part_event/Action/cust_bill_send_agent.pm deleted file mode 100644 index fcf0007..0000000 --- a/FS/FS/part_event/Action/cust_bill_send_agent.pm +++ /dev/null @@ -1,44 +0,0 @@ -package FS::part_event::Action::cust_bill_send_agent; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Send invoice (email/print/fax) with alternate template, for specific agents'; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub option_fields { - ( - 'agentnum' => { label => 'Only for agent(s)', - type => 'select-agent', - multiple => 1 - }, - 'agent_templatename' => { label => 'Template', - type => 'select-invoice_template', - }, - 'agent_invoice_from' => 'Invoice email From: address', - ); -} - -sub default_weight { - 50; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->send( - $self->option('agent_templatename'), - [ split(/\s*,\s*/, $self->option('agentnum') ) ], - $self->option('agent_invoice_from'), - ); -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_send_alternate.pm b/FS/FS/part_event/Action/cust_bill_send_alternate.pm deleted file mode 100644 index 6afb89a..0000000 --- a/FS/FS/part_event/Action/cust_bill_send_alternate.pm +++ /dev/null @@ -1,35 +0,0 @@ -package FS::part_event::Action::cust_bill_send_alternate; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Send invoice (email/print/fax) with alternate template'; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub option_fields { - ( - 'templatename' => { label => 'Template', - type => 'select-invoice_template', - }, - ); -} - -sub default_weight { - 50; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->send( $self->option('templatename') ); -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_send_csv_ftp.pm b/FS/FS/part_event/Action/cust_bill_send_csv_ftp.pm deleted file mode 100644 index db3554e..0000000 --- a/FS/FS/part_event/Action/cust_bill_send_csv_ftp.pm +++ /dev/null @@ -1,56 +0,0 @@ -package FS::part_event::Action::cust_bill_send_csv_ftp; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Upload CSV invoice data to an FTP server'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub option_fields { - ( - 'ftpformat' => { label => 'Format', - type =>'select', - options => ['default', 'billco'], - option_labels => { 'default' => 'Default', - 'billco' => 'Billco', - }, - }, - 'ftpserver' => 'FTP server', - 'ftpusername' => 'FTP username', - 'ftppassword' => 'FTP password', - 'ftpdir' => 'FTP directory', - ); -} - -sub default_weight { - 50; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->send_csv( - 'protocol' => 'ftp', - 'server' => $self->option('ftpserver'), - 'username' => $self->option('ftpusername'), - 'password' => $self->option('ftppassword'), - 'dir' => $self->option('ftpdir'), - 'format' => $self->option('ftpformat'), - ); - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_send_if_newest.pm b/FS/FS/part_event/Action/cust_bill_send_if_newest.pm deleted file mode 100644 index 916983e..0000000 --- a/FS/FS/part_event/Action/cust_bill_send_if_newest.pm +++ /dev/null @@ -1,40 +0,0 @@ -package FS::part_event::Action::cust_bill_send_if_newest; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Send invoice (email/print/fax) with alternate template, if it is still the newest invoice (useful for late notices - set to 31 days or later)'; -} - -# XXX is this handled better by something against customers?? -#sub deprecated { -# 1; -#} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub option_fields { - ( - 'if_newest_templatename' => { label => 'Template', - type => 'select-invoice_template', - }, - ); -} - -sub default_weight { - 50; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->send( $self->option('templatename') ); -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_spool_csv.pm b/FS/FS/part_event/Action/cust_bill_spool_csv.pm deleted file mode 100644 index 4300b61..0000000 --- a/FS/FS/part_event/Action/cust_bill_spool_csv.pm +++ /dev/null @@ -1,64 +0,0 @@ -package FS::part_event::Action::cust_bill_spool_csv; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Spool CSV invoice data'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub option_fields { - ( - 'spoolformat' => { label => 'Format', - type => 'select', - options => ['default', 'billco'], - option_labels => { 'default' => 'Default', - 'billco' => 'Billco', - }, - }, - 'spooldest' => { label => 'For destination', - type => 'select', - options => [ '', qw( POST EMAIL FAX ) ], - option_labels => { '' => '(all)', - 'POST' => 'Postal Mail', - 'EMAIL' => 'Email', - 'FAX' => 'Fax', - }, - }, - 'spoolbalanceover' => { label => - 'If balance (this invoice and previous) over', - type => 'money', - }, - 'spoolagent_spools' => { label => 'Individual per-agent spools', - type => 'checkbox', - }, - ); -} - -sub default_weight { - 50; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - $cust_bill->spool_csv( - 'format' => $self->option('spoolformat'), - 'dest' => $self->option('spooldest'), - 'balanceover' => $self->option('spoolbalanceover'), - 'agent_spools' => $self->option('spoolagent_spools'), - ); -} - -1; diff --git a/FS/FS/part_event/Action/cust_bill_suspend_if_balance.pm b/FS/FS/part_event/Action/cust_bill_suspend_if_balance.pm deleted file mode 100644 index 6559949..0000000 --- a/FS/FS/part_event/Action/cust_bill_suspend_if_balance.pm +++ /dev/null @@ -1,48 +0,0 @@ -package FS::part_event::Action::cust_bill_suspend_if_balance; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Suspend if balance (this invoice and previous) over'; -} - -sub deprecated { - 1; -} - -sub eventtable_hashref { - { 'cust_bill' => 1 }; -} - -sub option_fields { - ( - 'balanceover' => { label=>'Balance over', type=>'money', }, # size=>7 }, - 'reasonnum' => { 'label' => 'Reason', - 'type' => 'select-reason', - 'reason_class' => 'S', - }, - ); -}; - -sub default_weight { - 10; -} - -sub do_action { - my( $self, $cust_bill ) = @_; - - #my $cust_main = $self->cust_main($cust_bill); - my $cust_main = $cust_bill->cust_main; - - my @err = $cust_bill->cust_suspend_if_balance_over( - $self->option('balanceover'), - 'reason' => $self->option('reasonnum'), - ); - - die join(' / ', @err) if scalar(@err); - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/fee.pm b/FS/FS/part_event/Action/fee.pm deleted file mode 100644 index 81a8449..0000000 --- a/FS/FS/part_event/Action/fee.pm +++ /dev/null @@ -1,33 +0,0 @@ -package FS::part_event::Action::fee; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Late fee (flat)'; -} - -sub option_fields { - ( - 'charge' => { label=>'Amount', type=>'money', }, # size=>7, }, - 'reason' => 'Reason', - ); -}; - -sub default_weight { - 10; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - my $error = $cust_main->charge( $self->option('charge'), $self->option('reason') ); - - die $error if $error; - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/suspend.pm b/FS/FS/part_event/Action/suspend.pm deleted file mode 100644 index ec440ff..0000000 --- a/FS/FS/part_event/Action/suspend.pm +++ /dev/null @@ -1,36 +0,0 @@ -package FS::part_event::Action::suspend; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Suspend'; -} - -sub option_fields { - ( - 'reasonnum' => { 'label' => 'Reason', - 'type' => 'select-reason', - 'reason_class' => 'S', - }, - ); -}; - -sub default_weight { - 10; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - my @err = $cust_main->suspend( 'reason' => $self->option('reasonnum') ); - - die join(' / ', @err) if scalar(@err); - - ''; - -} - -1; diff --git a/FS/FS/part_event/Action/suspend_if_pkgpart.pm b/FS/FS/part_event/Action/suspend_if_pkgpart.pm deleted file mode 100644 index 9bdc9be..0000000 --- a/FS/FS/part_event/Action/suspend_if_pkgpart.pm +++ /dev/null @@ -1,42 +0,0 @@ -package FS::part_event::Action::suspend_if_pkgpart; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Suspend packages'; -} - -sub option_fields { - ( - 'if_pkgpart' => { 'label' => 'Suspend packages:', - 'type' => 'select-part_pkg', - 'multiple' => 1, - }, - 'reasonnum' => { 'label' => 'Reason', - 'type' => 'select-reason', - 'reason_class' => 'S', - }, - ); -}; - -sub default_weight { - 10; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - my @err = $cust_main->suspend_if_pkgpart( { - 'pkgparts' => [ split(/\s*,\s*/, $self->option('if_pkgpart') ) ], - 'reason' => $self->option('reasonnum'), - } ); - - die join(' / ', @err) if scalar(@err); - - ''; -} - -1; diff --git a/FS/FS/part_event/Action/suspend_unless_pkgpart.pm b/FS/FS/part_event/Action/suspend_unless_pkgpart.pm deleted file mode 100644 index f9bf1e8..0000000 --- a/FS/FS/part_event/Action/suspend_unless_pkgpart.pm +++ /dev/null @@ -1,42 +0,0 @@ -package FS::part_event::Action::suspend_unless_pkgpart; - -use strict; -use base qw( FS::part_event::Action ); - -sub description { - 'Suspend packages except'; -} - -sub option_fields { - ( - 'unless_pkgpart' => { 'label' => 'Suspend packages except:', - 'type' => 'select-part_pkg', - 'multiple' => 1, - }, - 'reasonnum' => { 'label' => 'Reason', - 'type' => 'select-reason', - 'reason_class' => 'S', - }, - ); -}; - -sub default_weight { - 10; -} - -sub do_action { - my( $self, $cust_object ) = @_; - - my $cust_main = $self->cust_main($cust_object); - - my @err = $cust_main->suspend_unless_pkgpart( { - 'pkgparts' => [ split(/\s*,\s*/, $self->option('unless_pkgpart') ) ], - 'reason' => $self->option('reasonnum'), - } ); - - die join(' / ', @err) if scalar(@err); - - ''; -} - -1; |