torrus virtual ports, RT#10574

[freeside.git] / FS / FS / torrus_srvderive_component.pm

diff --git a/FS/FS/torrus_srvderive_component.pm b/FS/FS/torrus_srvderive_component.pm
index 046b674..b244d06 100644 (file)
--- a/FS/FS/torrus_srvderive_component.pm
+++ b/FS/FS/torrus_srvderive_component.pm
@@ -3,6 +3,7 @@ package FS::torrus_srvderive_component;
 use strict;
 use base qw( FS::Record );
 use FS::Record qw( qsearch qsearchs );
 use strict;
 use base qw( FS::Record );
 use FS::Record qw( qsearch qsearchs );

+use FS::torrus_srvderive;

 
 =head1 NAME
 
 
 =head1 NAME
 


@@ -113,6 +114,11 @@ sub check {
   $self->SUPER::check;
 }
 
   $self->SUPER::check;
 }
 

+sub torrus_srvderive {
+  my $self = shift;
+  qsearchs('torrus_srvderive', { 'derivenum' => $self->derivenum } );
+}
+

 =back
 
 =head1 BUGS
 =back
 
 =head1 BUGS