From 41fc204efc34d16a89f1d7dafe3f9b41ee1e4a23 Mon Sep 17 00:00:00 2001 From: jeff Date: Mon, 17 Dec 2007 22:57:10 +0000 Subject: [PATCH] stricter otaker rules --- FS/FS/cust_credit.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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; } -- 2.20.1