manual batch approval and TD EFT fixes, RT#10545

[freeside.git] / httemplate / search / qual.cgi

diff --git a/httemplate/search/qual.cgi b/httemplate/search/qual.cgi
index 58e0114..cf4f3d1 100755 (executable)
--- a/httemplate/search/qual.cgi
+++ b/httemplate/search/qual.cgi
@@ -43,7 +43,7 @@
                                      },
                                      sub {
                                          my $self = shift;
-                                         my $export = $self->export;
+                                         my $export = $self->part_export;
                                          my $result = '(manual)';
                                          $result = $export->exportname if $export;
                                          $result;
@@ -73,6 +73,10 @@ my $extra_sql = '';
 if ( $cgi->param('custnum') && $cgi->param('custnum') =~ /^(\d+)$/ ) {
     $extra_sql = " where custnum = $1 or locationnum in "
            . " (select locationnum from cust_location where custnum = $1)";
+} elsif ( $cgi->param('prospectnum') 
+       && $cgi->param('prospectnum') =~ /^(\d+)$/ ) {
+    $extra_sql = " where prospectnum = $1 or locationnum in "
+           . " (select locationnum from cust_location where prospectnum = $1)";
 }
 
 </%init>