use strict;
use vars qw( @ISA $DEBUG $me );
-use FS::Record qw( qsearch qsearchs );
+use FS::Record qw( qsearch qsearchs dbh );
+use FS::cust_svc;
-@ISA = qw(FS::Record);
+@ISA = qw(FS::cust_main_Mixin FS::Record);
$me = '[FS::phone_avail]';
$DEBUG = 0;
$self->SUPER::check;
}
+=item cust_svc
+
+=cut
+
+sub cust_svc {
+ my $self = shift;
+ return '' unless $self->svcnum;
+ qsearchs('cust_svc', { 'svcnum' => $self->svcnum });
+}
+
sub process_batch_import {
my $job = shift;