X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_event.pm;h=58e01271cf75ac058ed412765035ad8aa55ca7d6;hp=d15f35b7dd2ccd7a326299119aa8e0d299e35c74;hb=4ce5e00fd7221feafc994694bac889dcc12323df;hpb=7b40e0e045368d350529d78208be0e6124f94b5a diff --git a/FS/FS/part_event.pm b/FS/FS/part_event.pm index d15f35b7d..58e01271c 100644 --- a/FS/FS/part_event.pm +++ b/FS/FS/part_event.pm @@ -1,7 +1,7 @@ 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 ); @@ -369,9 +369,10 @@ sub eventtable_labels { 'cust_pkg' => 'Package', 'cust_bill' => 'Invoice', 'cust_main' => 'Customer', + '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 @@ -408,6 +409,7 @@ sub eventtable_pkey { 'cust_main' => 'custnum', 'cust_bill' => 'invnum', 'cust_pkg' => 'pkgnum', + 'cust_pay' => 'paynum', 'cust_pay_batch' => 'paybatchnum', 'cust_statement' => 'statementnum', 'svc_acct' => 'svcnum', @@ -604,22 +606,6 @@ sub process_initialize { $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