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') };
primary key
+=item exportnum
+
+Export definition, see L<FS::part_export>
+
=item svcnum
Customer service, see L<FS::cust_svc>
=item part_export_machine
-=cut
-
-sub part_export_machine {
- my $self = shift;
- qsearchs('part_export_machine', { 'machinenum' => $self->machinenum } );
-}
-
=back
=head1 BUGS