diff options
author | ivan <ivan> | 2011-10-06 07:01:44 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-10-06 07:01:44 +0000 |
commit | a87829a0945ad5199b8676756c3186a7139d086d (patch) | |
tree | 0c48ae5dc50ab972045b88d4dabaf5b8d7bec47d /FS/FS/svc_dsl.pm | |
parent | 10407ce25bbd219fa4df3bbf1f2c807e45eb9026 (diff) |
add dsl_device to track mac addresses, RT#13656
Diffstat (limited to 'FS/FS/svc_dsl.pm')
-rw-r--r-- | FS/FS/svc_dsl.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/svc_dsl.pm b/FS/FS/svc_dsl.pm index ce4342e27..89f1159bd 100644 --- a/FS/FS/svc_dsl.pm +++ b/FS/FS/svc_dsl.pm @@ -4,6 +4,7 @@ use strict; use vars qw( @ISA $conf $DEBUG $me ); use FS::Record qw( qsearch qsearchs ); use FS::svc_Common; +use FS::dsl_device; use FS::dsl_note; use FS::qual; @@ -273,6 +274,18 @@ sub check { $self->SUPER::check; } +=item dsl_device + +Returns the MAC addresses associated with this DSL service, as FS::dsl_device +objects. + +=cut + +sub dsl_device { + my $self = shift; + qsearch('dsl_device', { 'svcnum' => $self->svcnum }); +} + sub predelete_hook_first { my $self = shift; my @exports = $self->part_svc->part_export_dsl_pull; |