[freeside-commits] freeside/FS/FS torrus_srvderive_component.pm, 1.1, 1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv17734/FS/FS

Modified Files:
	torrus_srvderive_component.pm 
Log Message:
torrus virtual ports, RT#10574

Index: torrus_srvderive_component.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/torrus_srvderive_component.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- torrus_srvderive_component.pm	27 Feb 2011 00:49:48 -0000	1.1
+++ torrus_srvderive_component.pm	27 Feb 2011 19:20:37 -0000	1.2
@@ -3,6 +3,7 @@
 use strict;
 use base qw( FS::Record );
 use FS::Record qw( qsearch qsearchs );
+use FS::torrus_srvderive;
 
 =head1 NAME
 
@@ -113,6 +114,11 @@
   $self->SUPER::check;
 }
 
+sub torrus_srvderive {
+  my $self = shift;
+  qsearchs('torrus_srvderive', { 'derivenum' => $self->derivenum } );
+}
+
 =back
 
 =head1 BUGS