[open-ils-commits] r13237 - trunk/Open-ILS/src/perlmods/OpenILS/SIP (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-05-26 16:23:16 -0400 (Tue, 26 May 2009)
New Revision: 13237

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
Log:
added some more 'here we are logs'

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2009-05-26 18:13:21 UTC (rev 13236)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm	2009-05-26 20:23:16 UTC (rev 13237)
@@ -99,7 +99,7 @@
 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 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 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;
 }