adjusting backdate so it does not clear fines for "today" (the backdate day); fine...

[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Application / Circ / Circulate.pm

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 25af8fa..f8402d3 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -1516,7 +1516,7 @@ sub checkin_handle_backdate {
 
        my $bills = $self->editor->search_money_billing(
                { 
 
        my $bills = $self->editor->search_money_billing(
                { 

-                       billing_ts => { '>=' => $self->backdate }, 
+                       billing_ts => { '>=' => $self->backdate . 'T23:59:59' }, 

                        xact => $self->circ->id, 
                        billing_type => OILS_BILLING_TYPE_OVERDUE_MATERIALS
                }
                        xact => $self->circ->id, 
                        billing_type => OILS_BILLING_TYPE_OVERDUE_MATERIALS
                }


@@ -1542,7 +1542,7 @@ sub _checkin_handle_backdate {
 
    my $bills = $session->request(
       "open-ils.storage.direct.money.billing.search_where.atomic",
 
    my $bills = $session->request(
       "open-ils.storage.direct.money.billing.search_where.atomic",

-               billing_ts => { '>=' => $backdate }, 
+               billing_ts => { '>=' => $backdate . 'T23:59:59' }, 

                xact => $circ->id,
                billing_type => OILS_BILLING_TYPE_OVERDUE_MATERIALS
        )->gather(1);
                xact => $circ->id,
                billing_type => OILS_BILLING_TYPE_OVERDUE_MATERIALS
        )->gather(1);