X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_export_machine.pm;h=e22af6a012fa5e069ff230afe55c1e9e7beee830;hp=7ca20ccb61ddcf41cb1020dd4dd56fa7166f240e;hb=8d0e8149e7b19ad8543ac6c8c663be63dbc34762;hpb=54a357b171aa44f9399b4c146acd2afd3b686075

diff --git a/FS/FS/svc_export_machine.pm b/FS/FS/svc_export_machine.pm
index 7ca20ccb6..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') };
 
@@ -107,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