eWay self-signup fixes
[freeside.git] / FS / FS / qual.pm
index 4859b77..23a8272 100644 (file)
@@ -127,6 +127,15 @@ sub check {
   $self->SUPER::check;
 }
 
+sub part_export {
+    my $self = shift;
+    if ( $self->exportnum ) {
+       return qsearchs('part_export', { exportnum => $self->exportnum } )
+               or die 'invalid exportnum';
+    }
+    '';
+}
+
 sub location {
     my $self = shift;
     if ( $self->locationnum ) {