From 0fa517b43b1d4653f622ef1c6bdb830a99c1e011 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 28 Jul 2006 17:04:09 +0000 Subject: [PATCH] added some logging git-svn-id: svn://svn.open-ils.org/ILS/trunk@5157 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Circ/Circulate.pm | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm index c5aaa31652..4690e6f10a 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm @@ -476,6 +476,8 @@ sub mk_script_runner { sub do_permit { my $self = shift; + $self->log_me("do_permit()"); + unless( $self->editor->requestor->id == $self->patron->id ) { return $self->bail_on_events($self->editor->event) unless( $self->editor->allowed('VIEW_PERMIT_CHECKOUT') ); @@ -695,6 +697,8 @@ sub handle_claims_returned { sub do_checkout { my $self = shift; + $self->log_me("do_checkout()"); + # make sure perms are good if this isn't a renewal unless( $self->is_renewal ) { return $self->bail_on_events($self->editor->event) @@ -1065,6 +1069,7 @@ sub checkout_noncat { sub do_checkin { my $self = shift; + $self->log_me("do_checkin()"); unless( $self->is_renewal ) { return $self->bail_on_events($self->editor->event) @@ -1511,13 +1516,22 @@ sub checkin_flesh_events { } } +sub log_me { + my( $self, $msg ) = @_; + my $bc = ($self->copy) ? $self->copy->barcode : + $self->barcode; + $bc ||= ""; + my $usr = ($self->patron) ? $self->patron->id : ""; + $logger->info("circulator: $msg requestor=".$self->editor->requestor->id. + ", recipient=$usr, copy=$bc"); +} + sub do_renew { my $self = shift; + $self->log_me("do_renew()"); $self->is_renewal(1); - #$self->find_patron_from_copy unless $self->patron; - unless( $self->is_renewal ) { return $self->bail_on_events($self->editor->events) unless $self->editor->allowed('RENEW_CIRC'); -- 2.11.0