projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changes to add classified reasons for invoice void
[freeside.git]
/
FS
/
FS
/
cust_bill_pkg_void.pm
diff --git
a/FS/FS/cust_bill_pkg_void.pm
b/FS/FS/cust_bill_pkg_void.pm
index
080452e
..
4b9cffd
100644
(file)
--- a/
FS/FS/cust_bill_pkg_void.pm
+++ b/
FS/FS/cust_bill_pkg_void.pm
@@
-1,5
+1,5
@@
package FS::cust_bill_pkg_void;
package FS::cust_bill_pkg_void;
-use base qw( FS::TemplateItem_Mixin FS::Record );
+use base qw( FS::TemplateItem_Mixin FS::
reason_Mixin FS::
Record );
use strict;
use FS::Record qw( qsearch qsearchs dbh fields );
use strict;
use FS::Record qw( qsearch qsearchs dbh fields );
@@
-104,6
+104,13
@@
unitrecur
hidden
hidden
+=item reason
+
+freeform string (deprecated)
+
+=item reasonnum
+
+reason for voiding the payment (see L<FS::reson>)
=back
=back
@@
-134,6
+141,10
@@
sub discount_table { 'cust_bill_pkg_discount_void'; }
Adds this record to the database. If there is an error, returns the error,
otherwise returns false.
Adds this record to the database. If there is an error, returns the error,
otherwise returns false.
+=item reason
+
+Returns the text of the associated void reason (see L<FS::reason>) for this.
+
=item unvoid
"Un-void"s this line item: Deletes the voided line item from the database and
=item unvoid
"Un-void"s this line item: Deletes the voided line item from the database and
@@
-242,6
+253,8
@@
sub check {
|| $self->ut_moneyn('unitrecur')
|| $self->ut_enum('hidden', [ '', 'Y' ])
|| $self->ut_numbern('feepart')
|| $self->ut_moneyn('unitrecur')
|| $self->ut_enum('hidden', [ '', 'Y' ])
|| $self->ut_numbern('feepart')
+ || $self->ut_textn('reason')
+ || $self->ut_foreign_keyn('reasonnum', 'reason', 'reasonnum')
;
return $error if $error;
;
return $error if $error;