X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Ftorrus_srvderive_component.pm;h=b244d064e9fbea68f4e210a475737c041a2b79eb;hp=046b6748b121937a43992fd12f9bae03eaa408f4;hb=71c4c439c4a5b414802802beabc8060986d4a065;hpb=0f73a9a9ff4a9bbb48e29eb8874155da3587390b

diff --git a/FS/FS/torrus_srvderive_component.pm b/FS/FS/torrus_srvderive_component.pm
index 046b6748b..b244d064e 100644
--- 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 FS::torrus_srvderive;
 
 =head1 NAME
 
@@ -113,6 +114,11 @@ sub check {
   $self->SUPER::check;
 }
 
+sub torrus_srvderive {
+  my $self = shift;
+  qsearchs('torrus_srvderive', { 'derivenum' => $self->derivenum } );
+}
+
 =back
 
 =head1 BUGS