},
sub {
my $self = shift;
- my $export = $self->export;
+ my $export = $self->part_export;
my $result = '(manual)';
$result = $export->exportname if $export;
$result;
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>