diff options
author | ivan <ivan> | 2009-06-30 01:42:56 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-06-30 01:42:56 +0000 |
commit | 665067cef48a5516e0bfb2dd79d99b8495e25ee5 (patch) | |
tree | 40b11281ad950b57c1dc940e35a691ae62811a17 /FS/FS/svc_phone.pm | |
parent | f544c8f095cfb2e844810d31b6230b96033cb1e8 (diff) |
phone devices (for netsapiens integration), RT#5226
Diffstat (limited to 'FS/FS/svc_phone.pm')
-rw-r--r-- | FS/FS/svc_phone.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/FS/FS/svc_phone.pm b/FS/FS/svc_phone.pm index 73ea8e731..badbb4eb4 100644 --- a/FS/FS/svc_phone.pm +++ b/FS/FS/svc_phone.pm @@ -7,6 +7,7 @@ use FS::Record qw( qsearch qsearchs ); use FS::Msgcat qw(gettext); use FS::svc_Common; use FS::part_svc; +use FS::phone_device; @ISA = qw( FS::svc_Common ); @@ -326,6 +327,17 @@ sub radius_groups { (); } +=item phone_device + +Returns any FS::phone_device records associated with this service. + +=cut + +sub phone_device { + my $self = shift; + qsearch('phone_device', { 'svcnum' => $self->svcnum } ); +} + =back =head1 BUGS |