use FS::part_svc;
use FS::cust_pkg_reason;
use FS::reason;
+use FS::UI::Web;
# need to 'use' these instead of 'require' in sub { cancel, suspend, unsuspend,
# setup }
if ( $params->{'agentnum'} =~ /^(\d+)$/ and $1 ) {
push @where,
- "agentnum = $1";
+ "cust_main.agentnum = $1";
}
##
qsearchs('access_user', { username => $params->{CurrentUser} });
if ($access_user) {
- push @where, $access_user->agentnums_sql;
+ push @where, $access_user->agentnums_sql('table'=>'cust_main');
}else{
push @where, "1=0";
}
}else{
- push @where, $FS::CurrentUser::CurrentUser->agentnums_sql;
+ push @where, $FS::CurrentUser::CurrentUser->agentnums_sql('table'=>'cust_main');
}
my $extra_sql = scalar(@where) ? ' WHERE '. join(' AND ', @where) : '';