From 0a8a564793dee6fb12a641dd638b8670390fe22a Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 20 Sep 2006 14:51:13 +0000
Subject: [PATCH] added some more logging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6159 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkout.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkout.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkout.pm
index e2cc1abe91..5140fd7c9d 100644
--- a/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkout.pm
+++ b/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkout.pm
@@ -69,6 +69,8 @@ sub do_checkout {
 
 	my $key;
 
+	syslog('LOG_DEBUG', "OILS: Checkout permit returned event: " . JSON->perl2JSON($resp));
+
 	if( @$resp == 1 and ! $U->event_code($$resp[0]) ) {
 		$key = $$resp[0]->{payload};
 		syslog('LOG_INFO', "OILS: circ permit key => $key");
@@ -108,6 +110,9 @@ sub do_checkout {
 		'open-ils.circ',
 		'open-ils.circ.checkout', $self->{authtoken}, $args );
 
+
+	syslog('LOG_DEBUG', "OILS: Checkout returned event: " . JSON->perl2JSON($resp));
+
 	# XXX Check for events
 	if( $resp ) {
 
-- 
2.11.0