From fa17a46bd634147e07d4997ffdc692bb7e4a0751 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 15 Dec 2005 16:52:22 +0000
Subject: [PATCH] added ROUTE_COPY event and returning it from the hold.capture
 method

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2405 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/extras/ils_events.xml                  | 13 +++++++++++++
 .../src/perlmods/OpenILS/Application/AppUtils.pm    |  2 +-
 .../src/perlmods/OpenILS/Application/Circ/Holds.pm  | 11 +++--------
 3 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/Open-ILS/src/extras/ils_events.xml b/Open-ILS/src/extras/ils_events.xml
index dc0cb9300c..5bf22f70fa 100644
--- a/Open-ILS/src/extras/ils_events.xml
+++ b/Open-ILS/src/extras/ils_events.xml
@@ -13,6 +13,7 @@
 	<event code='0' textcode='SUCCESS'>
 		<desc>No errors or unexpected events occurred</desc>
 	</event>
+
 	<event code='1000' textcode='LOGIN_FAILED'>
 		<desc>
 			User login failed.  Why the login failed is not specified.
@@ -67,6 +68,18 @@
 		</desc>
 	</event>
 
+	<event code='1503' textcode='BILLING_NOT_FOUND'>
+		<desc>
+			Someone attempted to retrieve a transit object from the 
+			system and the object was not found.
+		</desc>
+	</event>
+
+	<event code='1700' textcode='ROUTE_COPY'>
+		<desc>
+			A copy needs to be routed to a different location	
+		</desc>
+	</event>
 
 
 	<event code='2000' textcode='BAD_PARAMS'>
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index 7a0923235a..d3a90dcc38 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -471,7 +471,7 @@ sub fetch_hold_transit_by_hold {
 
 
 sub fetch_copy_by_barcode {
-	my( $self, $barcode ) = $_;
+	my( $self, $barcode ) = @_;
 	my( $copy, $evt );
 
 	$logger->debug("Fetching copy by barcode $barcode from storage");
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
index b6b9c9a17d..2460c4c3b8 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -367,14 +367,9 @@ sub capture_copy {
 
 	$apputils->commit_db_session($session);
 
-	my $payload = { 
-		copy => $copy,
-		route_to => $hold->pickup_lib,
-		record => $title,
-		hold => $hold, 
-	};
-
-	return OpenILS::Event->new('SUCCESS', payload => $payload );
+	my $payload = { copy => $copy, record => $title, hold => $hold, };
+
+	return OpenILS::Event->new('ROUTE_COPY', route_to => $hold->pickup_lib, payload => $payload );
 }
 
 sub _build_hold_transit {
-- 
2.43.2