adding system note on voided bills in backdate

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4638 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 51c39ee..d783803 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -1807,6 +1807,8 @@ sub _checkin_handle_backdate {
        if($bills) {
                for my $bill (@$bills) {
                        $bill->voided('t');
+                       my $n = $bill->note || "";
+                       $bill->note($n . "\nSYSTEM VOIDED FOR BACKDATE");
                        my $s = $session->request(
                                "open-ils.storage.direct.money.billing.update", $bill)->gather(1);
                        return $U->DB_UPDATE_FAILED($bill) unless $s;