X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_svc.pm;h=d68a4618113d0211fa01bffef76d4c2a59f70412;hp=a565ee45bab6af3d5a8f85bfdf8fc8ba2f1fd908;hb=3adb46fccf9f631e188ea5383bd147b340477639;hpb=a7a22257d456394125eed32f8261c75a7f393ec2

diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm
index a565ee45b..d68a46181 100644
--- a/FS/FS/part_svc.pm
+++ b/FS/FS/part_svc.pm
@@ -903,6 +903,18 @@ sub process {
       $exportnums{$exportnum} = $role;
     }
   }
+
+  ## make sure export required fields are marked required.
+  my @required_fields;
+  foreach (keys %exportnums) {
+    my $export = qsearchs('part_export', { 'exportnum' => $_ })
+      if $exportnums{$_};
+    if ($export) {
+      push @required_fields, $export->required_fields if $export->can('required_fields');
+    }
+  }
+  foreach (@required_fields) { $new->set($_, 'Y'); }
+
   my $error;
   if ( $param->{'svcpart'} ) {
     $error = $new->replace( $old,