[open-ils-commits] r12425 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-05 12:34:27 -0500 (Thu, 05 Mar 2009)
New Revision: 12425

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
mark lost code checks perms, no need to double-check in the published wrapper method

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-03-05 16:26:36 UTC (rev 12424)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-03-05 17:34:27 UTC (rev 12425)
@@ -255,26 +255,9 @@
     my $e = new_editor(authtoken=>$auth, xact=>1);
     return $e->die_event unless $e->checkauth;
 
-    my $barcode = $$args{barcode};
-    $logger->info("marking item lost $barcode");
+    my $copy = $e->search_asset_copy({barcode=>$$args{barcode}, deleted=>'f'})->[0]
+        or return $e->die_event;
 
-    # ---------------------------------------------------------------------
-    # gather the pieces
-    my $copy = $e->search_asset_copy([
-        {barcode=>$barcode, deleted=>'f'},
-        {flesh => 1, flesh_fields => {'acp' => ['call_number']}}])->[0] 
-            or return $e->die_event;
-
-    my $owning_lib = 
-        ($copy->call_number->id == OILS_PRECAT_CALL_NUMBER) ? 
-            $copy->circ_lib : $copy->call_number->owning_lib;
-
-    my $circ = $e->search_action_circulation(
-        {checkin_time => undef, target_copy => $copy->id} )->[0]
-            or return $e->die_event;
-
-    $e->allowed('SET_CIRC_LOST', $circ->circ_lib) or return $e->die_event;
-
     my $evt = OpenILS::Application::Cat::AssetCommon->set_item_lost($e, $copy->id);
     return $evt if $evt;