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

diff --git a/FS/FS/svc_export_machine.pm b/FS/FS/svc_export_machine.pm
index 39629d8af..e22af6a01 100644
--- a/FS/FS/svc_export_machine.pm
+++ b/FS/FS/svc_export_machine.pm
@@ -1,10 +1,11 @@
 package FS::svc_export_machine;
+use base qw( FS::Record );
 
 use strict;
-use base qw( FS::Record );
-use FS::Record; # qw( qsearch qsearchs );
 use FS::cust_svc;
-use FS::part_export_machine;
+use FS::part_export;
+
+sub _svc_child_partfields { ('exportnum') };
 
 =head1 NAME
 
@@ -37,6 +38,10 @@ fields are currently supported:
 
 primary key
 
+=item exportnum
+
+Export definition, see L<FS::part_export>
+
 =item svcnum
 
 Customer service, see L<FS::cust_svc>
@@ -89,14 +94,17 @@ sub check {
 
   my $error = 
     $self->ut_numbern('svcexportmachinenum')
-    || $self->ut_foreign_key('svcnum', 'cust_svc', 'svcnum')
-    || $self->ut_foreign_key('machinenum', 'part_export_machine', 'machinenum' )
+    || $self->ut_foreign_key('svcnum',     'cust_svc',            'svcnum'    )
+    || $self->ut_foreign_key('exportnum',  'part_export',         'exportnum' )
+    || $self->ut_foreign_key('machinenum', 'part_export_machine', 'machinenum')
   ;
   return $error if $error;
 
   $self->SUPER::check;
 }
 
+=item part_export_machine
+
 =back
 
 =head1 BUGS