freeside/FS/FS cust_refund.pm,1.23,1.24

[ivan]

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

Modified Files:
	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.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- cust_refund.pm	29 Jun 2004 04:02:44 -0000	1.23
+++ cust_refund.pm	6 Jul 2004 14:22:56 -0000	1.24
@@ -45,6 +45,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.
 
@@ -194,6 +196,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' ])