X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_export_machine.pm;h=e22af6a012fa5e069ff230afe55c1e9e7beee830;hp=10f7b68210305c91fa7b5981c3a68cf5b9c6e633;hb=ff27c3f36240aee48ed50153dd5d8fe3ac3f2443;hpb=0af38652da3b3be7da2d35b048285ef6f2194e1a

diff --git a/FS/FS/svc_export_machine.pm b/FS/FS/svc_export_machine.pm
index 10f7b6821..e22af6a01 100644
--- a/FS/FS/svc_export_machine.pm
+++ b/FS/FS/svc_export_machine.pm
@@ -1,11 +1,9 @@
 package FS::svc_export_machine;
+use base qw( FS::Record );
 
 use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearchs ); #qsearch );
 use FS::cust_svc;
 use FS::part_export;
-use FS::part_export_machine;
 
 sub _svc_child_partfields { ('exportnum') };
 
@@ -40,6 +38,10 @@ fields are currently supported:
 
 primary key
 
+=item exportnum
+
+Export definition, see L<FS::part_export>
+
 =item svcnum
 
 Customer service, see L<FS::cust_svc>
@@ -103,13 +105,6 @@ sub check {
 
 =item part_export_machine
 
-=cut
-
-sub part_export_machine {
-  my $self = shift;
-  qsearchs('part_export_machine', { 'machinenum' => $self->machinenum } );
-}
-
 =back
 
 =head1 BUGS