projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
cfe85e4
)
document and check refund reasons
author
ivan
<ivan>
Tue, 6 Jul 2004 14:22:56 +0000
(14:22 +0000)
committer
ivan
<ivan>
Tue, 6 Jul 2004 14:22:56 +0000
(14:22 +0000)
FS/FS/cust_refund.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_refund.pm
b/FS/FS/cust_refund.pm
index
b9f48db
..
106ccd3
100644
(file)
--- a/
FS/FS/cust_refund.pm
+++ b/
FS/FS/cust_refund.pm
@@
-45,6
+45,8
@@
inherits from FS::Record. The following fields are currently supported:
=item refund - Amount of the refund
=item refund - Amount of the refund
+=item reason - Reason for the refund
+
=item _date - specified as a UNIX timestamp; see L<perlfunc/"time">. Also see
L<Time::Local> and L<Date::Parse> for conversion functions.
=item _date - specified as a UNIX timestamp; see L<perlfunc/"time">. Also see
L<Time::Local> and L<Date::Parse> for conversion functions.
@@
-194,6
+196,7
@@
sub check {
$self->ut_numbern('refundnum')
|| $self->ut_numbern('custnum')
|| $self->ut_money('refund')
$self->ut_numbern('refundnum')
|| $self->ut_numbern('custnum')
|| $self->ut_money('refund')
+ || $self->ut_text('reason')
|| $self->ut_numbern('_date')
|| $self->ut_textn('paybatch')
|| $self->ut_enum('closed', [ '', 'Y' ])
|| $self->ut_numbern('_date')
|| $self->ut_textn('paybatch')
|| $self->ut_enum('closed', [ '', 'Y' ])