diff options
author | jeff <jeff> | 2007-12-17 22:59:16 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-12-17 22:59:16 +0000 |
commit | 3d561d34c5b2fc888310eb61f9d6ccc27e5676f7 (patch) | |
tree | b1d3d77f04740420d5552f3d454fcb0c3f990a14 /FS/FS/cust_credit.pm | |
parent | 810ae1507e9ee10440ea7ef5f8cc292b2d620bc6 (diff) |
stricter otaker rules
Diffstat (limited to 'FS/FS/cust_credit.pm')
-rw-r--r-- | FS/FS/cust_credit.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index 4336ea0..9efb0c2 100644 --- a/FS/FS/cust_credit.pm +++ b/FS/FS/cust_credit.pm @@ -262,11 +262,14 @@ methods. sub check { my $self = shift; + $self->otaker(getotaker) unless ($self->otaker); + my $error = $self->ut_numbern('crednum') || $self->ut_number('custnum') || $self->ut_numbern('_date') || $self->ut_money('amount') + || $self->ut_alpha('otaker') || $self->ut_textn('reason') || $self->ut_foreign_key('reasonnum', 'reason', 'reasonnum') || $self->ut_enum('closed', [ '', 'Y' ]) @@ -280,8 +283,6 @@ sub check { $self->_date(time) unless $self->_date; - $self->otaker(getotaker) unless ($self->otaker); - $self->SUPER::check; } |