X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export_machine.pm;h=86dd9e7ecc9c49bb77974986198a3f8ee0bcecc9;hp=1598e0372cdb50d68180692c33c09c60017f7c74;hb=57bb423fe457ba4e13726877f53bcdf944f828f8;hpb=1ad547a47f16b4230762e752fbe48d460ed997e1 diff --git a/FS/FS/part_export_machine.pm b/FS/FS/part_export_machine.pm index 1598e0372..86dd9e7ec 100644 --- a/FS/FS/part_export_machine.pm +++ b/FS/FS/part_export_machine.pm @@ -1,10 +1,8 @@ package FS::part_export_machine; +use base qw( FS::Record ); use strict; -use base qw( FS::Record ); -use FS::Record qw( dbh qsearch ); #qsearchs ); -use FS::part_export; -use FS::svc_export_machine; +use FS::Record qw( dbh ); #qsearch qsearchs ); =head1 NAME @@ -134,13 +132,6 @@ sub check { =item svc_export_machine -=cut - -sub svc_export_machine { - my $self = shift; - qsearch( 'svc_export_machine', { 'machinenum' => $self->machinenum } ); -} - =back =head1 BUGS