my $error =
$self->ut_numbern('svcnum')
# || $self->ut_number('recnum')
- || $self->ut_number('usersvc')
+ || $self->ut_numbern('usersvc')
;
return $error if $error;
return "Illegal recnum: ". $self->recnum;
}
- return "Unknown usersvc (svc_acct.svcnum): ". $self->usersvc
- unless qsearchs('svc_acct', { 'svcnum' => $self->usersvc } );
+ if ( $self->usersvc ) {
+ return "Unknown usersvc0 (svc_acct.svcnum): ". $self->usersvc
+ unless qsearchs('svc_acct', { 'svcnum' => $self->usersvc } );
+ }
$self->SUPER::check;