X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fsvc_broadband.pm;h=e295f73ccbb7d4c330305f88ba0ec89dc3a66235;hb=b7cf1606a66cca95e3540f803ffa66d223f23a40;hp=6073902e8789fc2830eca0978a2042e229626654;hpb=ec9b0f903dfa57efc0c82791b9efa74f0c746bc0;p=freeside.git diff --git a/FS/FS/svc_broadband.pm b/FS/FS/svc_broadband.pm index 6073902e8..e295f73cc 100755 --- a/FS/FS/svc_broadband.pm +++ b/FS/FS/svc_broadband.pm @@ -2,9 +2,11 @@ package FS::svc_broadband; use base qw( FS::svc_Radius_Mixin FS::svc_Tower_Mixin + FS::svc_Torrus_Mixin FS::svc_IP_Mixin + FS::MAC_Mixin FS::svc_Common - ); +); use strict; use vars qw($conf); @@ -143,6 +145,7 @@ sub table_info { type => 'search-svc_broadband', disable_inventory => 1, }, + 'serviceid' => 'Torrus serviceid', #but is should be hidden }, }; } @@ -262,7 +265,7 @@ sub smart_search { =item label -Returns the IP address. +Returns the IP address, MAC address and description. =cut @@ -362,6 +365,7 @@ sub check { || $self->ut_snumbern('rssi') || $self->ut_numbern('suid') || $self->ut_foreign_keyn('shared_svcnum', 'svc_broadband', 'svcnum') + || $self->ut_textn('serviceid') #too lenient? ; return $error if $error; @@ -419,22 +423,6 @@ sub _check_duplicate { ''; } -=item mac_addr_formatted CASE DELIMITER - -Format the MAC address (for use by exports). If CASE starts with "l" -(for "lowercase"), it's returned in lowercase. DELIMITER is inserted -between octets. - -=cut - -sub mac_addr_formatted { - my $self = shift; - my ($case, $delim) = @_; - my $addr = $self->mac_addr; - $addr = lc($addr) if $case =~ /^l/i; - join( $delim || '', $addr =~ /../g ); -} - #class method sub _upgrade_data { my $class = shift;