better name for svc_acct events

[freeside.git] / FS / FS / part_event.pm

diff --git a/FS/FS/part_event.pm b/FS/FS/part_event.pm
index 9a1144c..58e0127 100644 (file)
--- 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 );
@@ -372,7 +372,7 @@ sub eventtable_labels {
     '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
@@ -606,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