my $cust_main = $_;
my $hashref = $cust_main->hashref;
$hashref->{$_} = $cust_main->$_()
- foreach qw(name status statuscolor);
+ foreach qw(name status statuscolor status_label);
delete $hashref->{$_} foreach qw( payinfo paycvv );
$hashref;
} @cust_main
sub check_username {
my $p = shift;
- my($session, $agentnum, $svc_acct) = _session_agentnum_svc_acct_check($p);
+ my($session, $agentnum, $svc_acct) = _session_agentnum_svc_acct($p);
return { 'error' => $session } unless ref($session);
{ 'error' => '',