X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fagent_payment_gateway.pm;h=6a7cc06d1a368f926503a8c877c74de3c272576e;hb=09af85fc0e7a48392c930c9672a99448cf9630d4;hp=bd99d0ccd0cb39a939fed237510cdbadd04a6fa6;hpb=9c4afe2f736c1a9e4c0b8c1b7c708ab6a46898b7;p=freeside.git

diff --git a/FS/FS/agent_payment_gateway.pm b/FS/FS/agent_payment_gateway.pm
index bd99d0ccd..6a7cc06d1 100644
--- a/FS/FS/agent_payment_gateway.pm
+++ b/FS/FS/agent_payment_gateway.pm
@@ -1,11 +1,8 @@
 package FS::agent_payment_gateway;
+use base qw(FS::Record);
+use FS::Record qw( qsearch );
 
 use strict;
-use vars qw( @ISA );
-use FS::Record qw( qsearch qsearchs );
-use FS::payment_gateway;
-
-@ISA = qw(FS::Record);
 
 =head1 NAME
 
@@ -115,15 +112,23 @@ sub check {
   $self->SUPER::check;
 }
 
-=item payment_gateway
-
-=cut
-
-sub payment_gateway {
-  my $self = shift;
-  qsearchs('payment_gateway', { 'gatewaynum' => $self->gatewaynum } );
+sub _upgrade_data {
+  # to simplify tokenization upgrades
+  die "Agent taxclass override no longer supported"
+    if qsearch({
+      'table' => 'agent_payment_gateway',
+      'extra_sql' => ' WHERE taxclass IS NOT NULL AND taxclass != \'\'',
+    });
+  die "Agent cardtype override no longer supported"
+    if qsearch({
+      'table' => 'agent_payment_gateway',
+      'extra_sql' => ' WHERE cardtype IS NOT NULL AND cardtype != \'\'',
+    });
+  return '';
 }
 
+=item payment_gateway
+
 =back
 
 =head1 BUGS