X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fphone_device.pm;h=b891bb2947381fbe148031994f17e52476f63dfc;hb=4c11454b932bb5cc58ad6405949c815beebc3278;hp=ba765e026f260f5f1e729af7be58127f230c268b;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924;p=freeside.git diff --git a/FS/FS/phone_device.pm b/FS/FS/phone_device.pm index ba765e026..b891bb294 100644 --- a/FS/FS/phone_device.pm +++ b/FS/FS/phone_device.pm @@ -1,11 +1,9 @@ package FS::phone_device; +use base qw( FS::MAC_Mixin FS::Record ); use strict; -use base qw( FS::Record ); use Scalar::Util qw( blessed ); -use FS::Record qw( dbh qsearchs ); # qsearch ); -use FS::part_device; -use FS::svc_phone; +use FS::Record qw( dbh ); # qsearch qsearchs dbh ); =head1 NAME @@ -208,25 +206,11 @@ sub check { Returns the device type record (see L) associated with this customer device. -=cut - -sub part_device { - my $self = shift; - qsearchs( 'part_device', { 'devicepart' => $self->devicepart } ); -} - =item svc_phone Returns the phone number (see L) associated with this customer device. -=cut - -sub svc_phone { - my $self = shift; - qsearchs( 'svc_phone', { 'svcnum' => $self->svcnum } ); -} - =item export HOOK [ EXPORT_ARGS ] Runs the provided export hook (i.e. "device_insert") for this service.