From 6c14ddb0adb9ac6e3bec46c7eb5bf1ea5897d9e2 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 31 Aug 2006 00:03:40 +0000
Subject: [PATCH] added some log lines for testing

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

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
index 8e6431c4c5..ab20789577 100644
--- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
@@ -182,24 +182,28 @@ sub recall_overdue {
 
 sub check_password {
 	my ($self, $pwd) = @_;
+	syslog('LOG_DEBUG', 'OILS: Patron->check_password()');
 	return md5_hex($pwd) eq $self->{user}->passwd;
 }
 
 
 sub currency {
 	my $self = shift;
+	syslog('LOG_DEBUG', 'OILS: Patron->currency()');
 	return 'USD';
 }
 
 sub fee_amount {
 	my $self = shift;
+	syslog('LOG_DEBUG', 'OILS: Patron->fee_amount()');
 
 	my $total = 0;
 	my $e = OpenILS::SIP->editor();
 	my $xacts = $e->search_money_open_billable_transaction_summary( 
 		{ usr => $self->{user}->id, balance_owed => { '!=' => 0 } } );
-	
+
 	$total += $_->balance_owed for @$xacts;
+	syslog('LOG_INFO', "User ".$self->{user}->id." has a fee amount of \$$total");
 	return $total;
 }
 
@@ -270,6 +274,7 @@ sub too_many_lost {
 
 sub excessive_fines {
     my $self = shift;
+	syslog('LOG_DEBUG', 'OILS: Patron->excessive_fines()');
 	if( $self->{user}->standing_penalties ) {
 		return grep { $_->penalty_type eq 'PATRON_EXCEEDS_FINES' } 
 			@{$self->{user}->standing_penalties};
@@ -282,6 +287,7 @@ sub excessive_fines {
 
 sub excessive_fees {
 	my $self = shift;
+	syslog('LOG_DEBUG', 'OILS: Patron->excessive_fees()');
 	if( $self->{user}->standing_penalties ) {
 		return grep { $_->penalty_type eq 'PATRON_EXCEEDS_FINES' } 
 			@{$self->{user}->standing_penalties};
@@ -444,6 +450,7 @@ sub charged_items {
 sub fine_items {
 	my ($self, $start, $end) = @_;
 	my @fines;
+	syslog('LOG_DEBUG', 'OILS: Patron->fine_items()');
 	return (defined $start and defined $end) ? 
 		[ $fines[($start-1)..($end-1)] ] : \@fines;
 }
-- 
2.11.0