From e6dd30c4c0553a22d61efb3bbb90a177e47bb311 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 15 Jan 2010 21:06:52 +0000 Subject: [PATCH] Patch from Dan Wells to make the results returned when using in-db circ look more like those of the legacy circ scripts. For more details plus DCO, see http://libmail.georgialibraries.org/pipermail/open-ils-dev/2010-January/005703.html git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6@15329 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm index 13061457a1..25156d6d17 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm @@ -622,7 +622,7 @@ sub mk_env { my $copy; my $flesh = { flesh => 2, - flesh_fields => {acp => ['call_number'], acn => ['record']} + flesh_fields => {acp => ['location', 'status', 'circ_lib', 'age_protect', 'call_number'], acn => ['record']} }; if($self->copy_id) { $copy = $e->retrieve_asset_copy( @@ -961,6 +961,11 @@ sub run_patron_permit_scripts { push(@allevents, OpenILS::Event->new($_)) for (@$patron_events); } + for (@allevents) { + $_->{payload} = $self->copy if + ($_->{textcode} eq 'COPY_NOT_AVAILABLE'); + } + $logger->info("circulator: permit_patron script returned events: @allevents") if @allevents; $self->push_events(@allevents); -- 2.11.0