adding system note on voided bills in backdate
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 15 Jun 2006 21:12:16 +0000 (21:12 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 15 Jun 2006 21:12:16 +0000 (21:12 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@4638 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm

index 51c39ee..d783803 100644 (file)
@@ -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;