X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fsvc_cable.pm;h=12a1dbba59032d5dc57f77ee56a8fbc99b94baee;hb=cc3a43f7d4386297a8babebfdd49646f836db127;hp=4b423938902c9be3f745c52f32473899f6da8d69;hpb=c2c351d0bf1e8c930290510c0ffcf3d455dad871;p=freeside.git diff --git a/FS/FS/svc_cable.pm b/FS/FS/svc_cable.pm index 4b4239389..12a1dbba5 100644 --- a/FS/FS/svc_cable.pm +++ b/FS/FS/svc_cable.pm @@ -1,13 +1,10 @@ package FS::svc_cable; -use base qw( FS::svc_MAC_Mixin +use base qw( FS::MAC_Mixin FS::svc_Common ); #FS::device_Common use strict; use Tie::IxHash; -use FS::Record qw( qsearchs ); # qw( qsearch qsearchs ); -use FS::cable_provider; -use FS::cable_model; =head1 NAME @@ -128,7 +125,7 @@ sub label { my @label = (); push @label, 'MAC:'. $self->mac_addr_pretty if $self->mac_addr; - push @label, 'Serial#:'. $self->serialnum + push @label, 'Serial#'. $self->serialnum if $self->serialnum; return join(', ', @label); } @@ -175,24 +172,10 @@ sub check { Returns the cable_provider object for this record. -=cut - -sub cable_provider { - my $self = shift; - qsearchs('cable_provider', { 'providernum'=>$self->providernum } ); -} - =item cable_model Returns the cable_model object for this record. -=cut - -sub cable_model { - my $self = shift; - qsearchs('cable_model', { 'modelnum'=>$self->modelnum } ); -} - =back =head1 BUGS