From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 29 Nov 2006 18:53:07 +0000 (+0000)
Subject: now voiding any bills created on the backdate day when backdating a checkin.  also... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f9ed8963bdce76260133a13fddd9ad60a68f2cb7;p=evergreen%2Fpines.git

now voiding any bills created on the backdate day when backdating a checkin.  also setting checkin_time to the backdate when available


git-svn-id: svn://svn.open-ils.org/ILS/trunk@6635 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 19c34ac52c..81cec08ea3 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -1694,7 +1694,8 @@ sub checkin_handle_circ {
 	$logger->debug("circulator: ".$obt->balance_owed." is owed on this circulation");
 
    # Set the checkin vars since we have the item
-   $circ->checkin_time('now');
+	$circ->checkin_time( ($self->backdate) ? $self->backdate : 'now' );
+
    $circ->checkin_staff($self->editor->requestor->id);
    $circ->checkin_lib($self->editor->requestor->ws_ou);
 
@@ -1723,8 +1724,13 @@ sub checkin_handle_backdate {
 	my $self = shift;
 
 	my $bd = $self->backdate;
+
+	# ------------------------------------------------------------------
+	# clean up the backdate for date comparison
+	# we want any bills created on or after the backdate
+	# ------------------------------------------------------------------
 	$bd =~ s/^(\d{4}-\d{2}-\d{2}).*/$1/og;
-	$bd = "${bd}T23:59:59";
+	#$bd = "${bd}T23:59:59";
 
 	my $bills = $self->editor->search_money_billing(
 		{