diff options
Diffstat (limited to 'FS/FS/svc_export_machine.pm')
| -rw-r--r-- | FS/FS/svc_export_machine.pm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/FS/FS/svc_export_machine.pm b/FS/FS/svc_export_machine.pm index 7ca20cc..e22af6a 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 |