From: jeff Date: Mon, 17 Dec 2007 22:57:10 +0000 (+0000) Subject: stricter otaker rules X-Git-Tag: freeside_1_7_3rc1~195 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=41fc204efc34d16a89f1d7dafe3f9b41ee1e4a23;p=freeside.git stricter otaker rules --- diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index fda7d95a3..863a54d30 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; }