-small svc_dsl UI and flow changes, RT7111

-finish basic qualifications, except prospect support, RT7111

1 files changed, 9 insertions, 0 deletions

diff --git a/FS/FS/qual.pm b/FS/FS/qual.pm
index 4859b77..1bc3397 100644
--- a/FS/FS/qual.pm
+++ b/FS/FS/qual.pm
@@ -127,6 +127,15 @@ sub check {
   $self->SUPER::check;
 }
 
+sub 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 ) {