[open-ils-commits] r15330 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-01-15 16:07:18 -0500 (Fri, 15 Jan 2010)
New Revision: 15330

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
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

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2010-01-15 21:06:52 UTC (rev 15329)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2010-01-15 21:07:18 UTC (rev 15330)
@@ -515,7 +515,7 @@
         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(
@@ -854,6 +854,11 @@
         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);