From 4aebb7bb5c67baa7da95205c39b29ee6d5143619 Mon Sep 17 00:00:00 2001 From: miker Date: Thu, 17 Nov 2005 20:36:54 +0000 Subject: [PATCH] updated fine processor to use billing_type in addition to note git-svn-id: svn://svn.open-ils.org/ILS/trunk@2061 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Storage/Publisher/action.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm index da3d7a75e3..a2cc17cf49 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm @@ -349,6 +349,7 @@ sub generate_fines { 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') } -- 2.43.2