From 69dd72bdc2733315b749b157f02460a94b13390d Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 31 Jan 2008 20:52:21 +0000
Subject: [PATCH] disallow marking an item lost that is already marked lost

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

diff --git a/Open-ILS/src/extras/ils_events.xml b/Open-ILS/src/extras/ils_events.xml
index 72dd5ebddc..5bfff164c1 100644
--- a/Open-ILS/src/extras/ils_events.xml
+++ b/Open-ILS/src/extras/ils_events.xml
@@ -675,6 +675,12 @@
 	</event>
 
 
+	<event code='7018' textcode='COPY_MARKED_LOST'>
+		<desc xml:lang="en-US">The requested item is already marked as lost</desc>
+	</event>
+
+
+
 	<!-- ================================================================ -->
 
 
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index b06fc5ff23..fcf6bd8a76 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
@@ -257,6 +257,9 @@ sub new_set_circ_lost {
 
     $e->allowed('SET_CIRC_LOST', $circ->circ_lib) or return $e->die_event;
 
+    return OpenILS::Event->new('COPY_MARKED_LOST')
+	    if $copy->status == OILS_COPY_STATUS_LOST;
+
     # ---------------------------------------------------------------------
     # fetch the related org settings
     my $default_price = $U->ou_ancestor_setting_value(
@@ -273,12 +276,10 @@ sub new_set_circ_lost {
 
     # ---------------------------------------------------------------------
     # move the copy into LOST status
-	unless( $copy->status == OILS_COPY_STATUS_LOST ) {
-		$copy->status(OILS_COPY_STATUS_LOST);
-        $copy->editor($e->requestor->id);
-        $copy->edit_date('now');
-        $e->update_asset_copy($copy) or return $e->die_event;
-	}
+    $copy->status(OILS_COPY_STATUS_LOST);
+    $copy->editor($e->requestor->id);
+    $copy->edit_date('now');
+    $e->update_asset_copy($copy) or return $e->die_event;
 
     # ---------------------------------------------------------------------
     # determine the appropriate item price to charge and create the billing
-- 
2.11.0