+sub findbycustnum{
+ my $custnum = shift;
+ my $agent = shift;
+ my $hashref = { 'custnum' => $custnum };
+ $hashref = { 'agent_custid' => $custnum } if $agent;
+ my $c = qsearchs({
+ 'table' => 'cust_main',
+ 'hashref' => $hashref,
+ 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
+ });
+ return [ $c->custnum, $c->name, $c->balance, $c->ucfirst_status, $c->statuscolor ]
+ if $c;
+ [];
+}