diff options
-rw-r--r-- | FS/FS/cust_refund.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm index 53c6bac..4981795 100644 --- a/FS/FS/cust_refund.pm +++ b/FS/FS/cust_refund.pm @@ -235,10 +235,13 @@ returns the error, otherwise returns false. Called by the insert method. sub check { my $self = shift; + $self->otaker(getotaker) unless ($self->otaker); + my $error = $self->ut_numbern('refundnum') || $self->ut_numbern('custnum') || $self->ut_money('refund') + || $self->ut_alpha('otaker') || $self->ut_text('reason') || $self->ut_numbern('_date') || $self->ut_textn('paybatch') @@ -257,8 +260,6 @@ sub check { $error = $self->payinfo_check; return $error if $error; - $self->otaker(getotaker); - $self->SUPER::check; } |