updated fine processor to use billing_type in addition to note
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 17 Nov 2005 20:36:54 +0000 (20:36 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 17 Nov 2005 20:36:54 +0000 (20:36 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2061 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm

index da3d7a7..a2cc17c 100644 (file)
@@ -349,6 +349,7 @@ sub generate_fines {
                                my $billing = money::billing->create(
                                        { xact          => ''.$c->id,
                                          note          => "Overdue Fine",
                                my $billing = money::billing->create(
                                        { xact          => ''.$c->id,
                                          note          => "Overdue Fine",
+                                         billing_type  => "Overdue materials",
                                          amount        => ''.$c->recuring_fine,
                                          billing_ts    => DateTime->from_epoch( epoch => $last_fine + $fine_interval * $bill )->strftime('%FT%T%z')
                                        }
                                          amount        => ''.$c->recuring_fine,
                                          billing_ts    => DateTime->from_epoch( epoch => $last_fine + $fine_interval * $bill )->strftime('%FT%T%z')
                                        }