freeside/FS/FS cust_refund.pm,1.18.4.2,1.18.4.3

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv23242

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	cust_refund.pm 
Log Message:
document and check refund reasons

Index: cust_refund.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_refund.pm,v
retrieving revision 1.18.4.2
retrieving revision 1.18.4.3
diff -u -d -r1.18.4.2 -r1.18.4.3
--- cust_refund.pm	19 Nov 2002 09:52:02 -0000	1.18.4.2
+++ cust_refund.pm	6 Jul 2004 14:22:57 -0000	1.18.4.3
@@ -44,6 +44,8 @@
 
 =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.
 
@@ -221,6 +223,7 @@
     $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' ])