From c7fa345cc2a32015d4fdbe5b49d70dbeb089dc7a Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 26 May 2009 20:23:16 +0000 Subject: [PATCH] added some more 'here we are logs' git-svn-id: svn://svn.open-ils.org/ILS/trunk@13237 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm index ab47d70eac..54dbe4f1fb 100644 --- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm +++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm @@ -99,7 +99,7 @@ sub name { sub home_library { my $self = shift; my $lib = $self->{editor}->retrieve_actor_org_unit($self->{user}->home_ou)->shortname; - syslog('LOG_DEBUG', "OILS: Patron home library is $lib"); + syslog('LOG_DEBUG', "OILS: Patron->home_library() = $lib"); return $lib; } @@ -315,6 +315,7 @@ sub too_many_billed { # sub hold_items { my ($self, $start, $end) = @_; + syslog('LOG_DEBUG', 'OILS: Patron->hold_items()'); my $holds = $self->{editor}->search_action_hold_request( { usr => $self->{user}->id, fulfillment_time => undef, cancel_time => undef } @@ -499,6 +500,7 @@ sub recall_items { sub unavail_holds { my ($self, $start, $end) = @_; my @holds; + syslog('LOG_DEBUG', 'OILS: Patron->unavail_holds()'); return (defined $start and defined $end) ? [ $holds[($start-1)..($end-1)] ] : \@holds; } -- 2.11.0