diff options
author | ivan <ivan> | 2001-08-20 11:04:38 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-08-20 11:04:38 +0000 |
commit | a9ec5a5c02a137cadd9f2a522fba904d945ddbe3 (patch) | |
tree | 3c4d61608e271c40615b3a0769c6dd20a364730d /FS/FS/svc_domain.pm | |
parent | c6708c86785662d8f0c12e23936bf7b1916f411c (diff) |
more svc_forward work
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 0618604..5530251 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -340,7 +340,9 @@ sub check { return $x unless ref($x); my $part_svc = $x; - my $error = $self->ut_numbern('catchall'); + my $error = $self->ut_numbern('svcnum') + || $self->ut_numbern('catchall') + ; return $error if $error; #hmm @@ -531,7 +533,7 @@ sub submit_internic { =head1 VERSION -$Id: svc_domain.pm,v 1.16 2001-08-20 09:41:52 ivan Exp $ +$Id: svc_domain.pm,v 1.17 2001-08-20 11:04:38 ivan Exp $ =head1 BUGS |