X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fexport_device.pm;h=d3795c6cb1578cc0ae374421e5f59a121c476009;hp=69e382649294674b69c9400b6d2d2629fe229f4c;hb=3adb46fccf9f631e188ea5383bd147b340477639;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924

diff --git a/FS/FS/export_device.pm b/FS/FS/export_device.pm
index 69e382649..d3795c6cb 100644
--- a/FS/FS/export_device.pm
+++ b/FS/FS/export_device.pm
@@ -1,10 +1,7 @@
 package FS::export_device;
+use base qw( FS::Record );
 
 use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs dbh );
-use FS::part_export;
-use FS::part_device;
 
 =head1 NAME
 
@@ -103,24 +100,10 @@ sub check {
 
 Returns the FS::part_export object (see L<FS::part_export>).
 
-=cut
-
-sub part_export {
-  my $self = shift;
-  qsearchs( 'part_export', { 'exportnum' => $self->exportnum } );
-}
-
 =item part_device
 
 Returns the FS::part_device object (see L<FS::part_device>).
 
-=cut
-
-sub part_device {
-  my $self = shift;
-  qsearchs( 'part_device', { 'svcpart' => $self->devicepart } );
-}
-
 =back
 
 =head1 BUGS