From: senator Date: Mon, 15 Nov 2010 15:46:37 +0000 (+0000) Subject: Backport r17447 from trunk: don't forget this branch X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=83269402bb71a5b475e9e96c5d1776e41c25f41a;p=working%2FEvergreen.git Backport r17447 from trunk: don't forget this branch git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_1@18739 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm b/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm index 97a1941091..ff9572ac79 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm @@ -791,7 +791,7 @@ sub could_capture { my $e = new_editor("authtoken" => $auth); return $e->die_event unless $e->checkauth; - return $e->die_event unless $e->allowed("CAPTURE_RESERVATION"); + return $e->die_event unless $e->allowed("COPY_CHECKIN"); my $dt_parser = new DateTime::Format::ISO8601; my $now = now DateTime; # sic @@ -940,7 +940,7 @@ sub capture_resource_for_reservation { my $e = new_editor(authtoken => $auth); return $e->die_event unless $e->checkauth; - return $e->die_event unless $e->allowed("CAPTURE_RESERVATION"); + return $e->die_event unless $e->allowed("COPY_CHECKIN"); my $uncaptured = get_uncaptured_bresv_for_brsrc( $e, {"barcode" => $barcode} @@ -987,7 +987,7 @@ sub capture_reservation { my $e = new_editor("xact" => 1, "authtoken" => $auth); return $e->die_event unless $e->checkauth; - return $e->die_event unless $e->allowed('CAPTURE_RESERVATION'); + return $e->die_event unless $e->allowed("COPY_CHECKIN"); my $here = $e->requestor->ws_ou; my $reservation = $e->retrieve_booking_reservation([