From 21ef570d33dfbf104951916abf43925d1bce89bf Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 14 Sep 2006 17:42:53 +0000
Subject: [PATCH] added (backgrounded) penalty call back in for checkin, not
 fetching patron circ info on checkin

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6102 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../OpenILS/Application/Circ/Circulate.pm        | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 0242cd7ce2..1455656273 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -436,7 +436,6 @@ sub mk_script_runner {
 	my $self = shift;
 	my $args = {};
 
-	$args->{ignore_user_status} = 1 if $self->is_checkin;
 
 	my @fields = 
 		qw/copy copy_barcode copy_id patron 
@@ -444,8 +443,10 @@ sub mk_script_runner {
 
 	# Translate our objects into the ScriptBuilder args hash
 	$$args{$_} = $self->$_() for @fields;
+
+	$args->{ignore_user_status} = 1 if $self->is_checkin;
 	$$args{fetch_patron_by_circ_copy} = 1;
-	$$args{fetch_patron_circ_info} = 1;
+	$$args{fetch_patron_circ_info} = 1 unless $self->is_checkin;
 
 	# This fetches most of the objects we need
 	$self->script_runner(
@@ -456,7 +457,7 @@ sub mk_script_runner {
 
 	my @evts = @{$args->{_events}} if $args->{_events};
 
-	$logger->debug("circulator: script builder returned events: : @evts") if @evts;
+	$logger->debug("circulator: script builder returned events: @evts") if @evts;
 
 
 	if(@evts) {
@@ -1341,6 +1342,15 @@ sub do_checkin {
 			unless @{$self->events};
 	}
 
+
+   # ------------------------------------------------------------------------------
+   # Update the patron penalty info in the DB
+   # ------------------------------------------------------------------------------
+   $U->update_patron_penalties(
+      authtoken => $self->editor->authtoken,
+      patron    => $self->patron,
+      background  => 1 ) if $self->is_checkin;
+
 	$self->checkin_flesh_events;
 	return;
 }
-- 
2.43.2