package FS::svc_cable;
-use base qw( FS::svc_MAC_Mixin
+use base qw( FS::MAC_Mixin
FS::svc_Common
); #FS::device_Common
sub table { 'svc_cable'; }
-sub table_dupcheck_fields { ( 'mac_addr' ); }
+sub table_dupcheck_fields { ( 'serialnum', 'mac_addr' ); }
sub search_sql {
my( $class, $string ) = @_;
type => 'input-mac_addr',
value_callback => sub {
my $svc = shift;
- join(':', $svc->mac_addr =~ /../g);
+ $svc->mac_addr_formatted('U',':');
},
},
;
|| $self->ut_foreign_keyn('providernum', 'cable_provider', 'providernum')
|| $self->ut_alphan('ordernum')
|| $self->ut_foreign_key('modelnum', 'cable_model', 'modelnum')
- || $self->ut_alpha('serialnum')
- || $self->ut_mac_addr('mac_addr')
+ || $self->ut_alphan('serialnum')
+ || $self->ut_mac_addrn('mac_addr')
;
return $error if $error;
$self->SUPER::check;
}
+sub _check_duplicate {
+ my $self = shift;
+
+ # Not reliable checks because the table isn't locked, but that's why we have
+ # unique indices. These are just to give friendlier error messages.
+
+ if ( $self->mac_addr ) {
+ my @dup_mac;
+ @dup_mac = $self->find_duplicates('global', 'mac_addr');
+ if ( @dup_mac ) {
+ return "MAC address in use (svcnum ".$dup_mac[0]->svcnum.")";
+ }
+ }
+
+ if ( $self->serialnum ) {
+ my @dup_serial;
+ @dup_serial = $self->find_duplicates('global', 'serialnum');
+ if ( @dup_serial ) {
+ return "Serial number in use (svcnum ".$dup_serial[0]->svcnum.")";
+ }
+ }
+
+ '';
+}
+
=item cable_provider
Returns the cable_provider object for this record.