diff options
| author | ivan <ivan> | 2003-03-11 11:40:35 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-03-11 11:40:35 +0000 |
| commit | 0857c5465840060a13b93e6c5a15af6ed6476a1f (patch) | |
| tree | ad4ffd0adae97e90bb614e973a52fc9084882ab1 /FS/FS/svc_domain.pm | |
| parent | c174642d32c139d1233597e3fa6a467586207023 (diff) | |
another pg7.3 fix
Diffstat (limited to 'FS/FS/svc_domain.pm')
| -rw-r--r-- | FS/FS/svc_domain.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index 0d71b27..3941d6e 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -382,8 +382,10 @@ sub check { $recref->{action} =~ /^(M|N)$/ or return "Illegal action"; $recref->{action} = $1; - my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $recref->{catchall} } ); - return "Unknown catchall" unless $svc_acct || ! $recref->{catchall}; + if ( $recref->{catchall} ne '' ) { + my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $recref->{catchall} } ); + return "Unknown catchall" unless $svc_acct; + } $self->ut_textn('purpose'); |