package FS::svc_cable;
-use base qw( FS::svc_Common ); #qw( FS::device_Common FS::svc_Common );
+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
type => 'input-mac_addr',
value_callback => sub {
my $svc = shift;
- join(':', $svc->mac_addr =~ /../g);
+ $svc->mac_addr_formatted('U',':');
},
},
;
};
}
+=item label
+
+Returns the MAC address and serial number.
+
+=cut
+
+sub label {
+ my $self = shift;
+ my @label = ();
+ push @label, 'MAC:'. $self->mac_addr_pretty
+ if $self->mac_addr;
+ push @label, 'Serial#'. $self->serialnum
+ if $self->serialnum;
+ return join(', ', @label);
+}
+
=item insert
Adds this record to the database. If there is an error, returns the error,
my $error =
$self->ut_numbern('svcnum')
- || $self->ut_foreign_key('providernum', 'cable_provider', 'providernum')
+ || $self->ut_foreign_keyn('providernum', 'cable_provider', 'providernum')
|| $self->ut_alphan('ordernum')
|| $self->ut_foreign_key('modelnum', 'cable_model', 'modelnum')
|| $self->ut_alpha('serialnum')
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