From 61fcf0e5706792d742688d3380054cfcf513187e Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 4 Mar 2009 22:12:04 +0000
Subject: [PATCH] plugged in the actual marking lost part

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12407 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Trigger/Reactor/MarkItemLost.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/MarkItemLost.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/MarkItemLost.pm
index 0afad17e68..30fc5e3b74 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/MarkItemLost.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/MarkItemLost.pm
@@ -5,6 +5,7 @@ use Error qw/:try/;
 use Data::Dumper;
 use OpenSRF::Utils::Logger qw/:logger/;
 use OpenILS::Utils::CStoreEditor q/:funcs/;
+use OpenILS::Application::Cat::AssetCommon;
 $Data::Dumper::Indent = 0;
 
 
@@ -26,6 +27,14 @@ sub handler {
     my $self = shift;
     my $env = shift;
     my $e = new_editor(xact => 1);
+    $e->requestor($e->retrieve_actor_user($$env{params}{editor}));
+
+    my $evt = OpenILS::Application::Cat::AssetCommon->set_item_lost($e, $$env{target}->target_copy);
+    if($evt) {
+        $logger->error("trigger: MarkItemLost failed with event ".$evt->{textcode});
+        return 0;
+    }
+
     $e->commit;
     return 1;
 }
-- 
2.11.0