package FS::part_event;
+use base qw( FS::m2name_Common FS::option_Common );
use strict;
-use base qw( FS::m2name_Common FS::option_Common );
use vars qw( $DEBUG );
use Carp qw(confess);
use FS::Record qw( dbh qsearch qsearchs );
'cust_pay' => 'Payment',
'cust_pay_batch' => 'Batch payment',
'cust_statement' => 'Statement', #too general a name here? "Invoice group"?
- 'svc_acct' => 'Login service',
+ 'svc_acct' => 'Account service (svc_acct)',
;
\%hash
$part_event->initialize;
}
-sub _upgrade_data { #class method
- my ($class, %opts) = @_;
-
- foreach my $part_event (
- qsearch('part_event', { 'action' => 'cust_bill_realtime_card' }),
- qsearch('part_event', { 'action' => 'cust_bill_realtime_check' }),
- ) {
-
- $part_event->action('realtime_auto');
- my $error = $part_event->replace;
- die $error if $error;
-
- }
-
-}
-
=back
=head1 SEE ALSO