Checks all fields to make sure this is a valid web virtual host. If there is
an error, returns the error, otherwise returns false. Called by the insert
-and repalce methods.
+and replace methods.
=cut
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;