agent-virtualize credit card surcharge percentage, RT#72961

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

diff --git a/FS/FS/rate_prefix.pm b/FS/FS/rate_prefix.pm
index 585802a..37c61cb 100644 (file)
--- a/FS/FS/rate_prefix.pm
+++ b/FS/FS/rate_prefix.pm
@@ -1,11 +1,9 @@
 package FS::rate_prefix;
+use base qw(FS::Record);
 
 use strict;
-use vars qw( @ISA );
-use FS::Record qw( qsearch qsearchs dbh );
-use FS::rate_region;
-
-@ISA = qw(FS::Record);
+use FS::Record qw( dbh ); #qw( qsearch qsearchs dbh );
+use FS::lata;
 
 =head1 NAME
 
@@ -121,13 +119,6 @@ sub check {
 
 Returns the rate region (see L<FS::rate_region>) for this prefix.
 
-=cut
-
-sub rate_region {
-  my $self = shift;
-  qsearchs('rate_region', { 'regionnum' => $self->regionnum } );
-}
-
 =back
 
 =head1 CLASS METHODS