diff options
author | ivan <ivan> | 2005-05-26 19:16:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-05-26 19:16:59 +0000 |
commit | 0327e2c7c79a11ec950a58e518f8f36cd0f85302 (patch) | |
tree | f72bf5847644a7eb23a7ec5c05e3a72cb72b1e29 /FS/FS/svc_www.pm | |
parent | 5ea1794ffed0a5956302394300e26a46d32609c2 (diff) |
make svc_www.usersvc optional
Diffstat (limited to 'FS/FS/svc_www.pm')
-rw-r--r-- | FS/FS/svc_www.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/FS/svc_www.pm b/FS/FS/svc_www.pm index 6c276a1..12d7e92 100644 --- a/FS/FS/svc_www.pm +++ b/FS/FS/svc_www.pm @@ -204,7 +204,7 @@ sub check { my $error = $self->ut_numbern('svcnum') # || $self->ut_number('recnum') - || $self->ut_number('usersvc') + || $self->ut_numbern('usersvc') ; return $error if $error; @@ -238,8 +238,10 @@ sub check { 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; |