From 5a8cceb96f5f22616f7d5ce1ea09c2ec70b552a8 Mon Sep 17 00:00:00 2001 From: Dan Wells Date: Fri, 14 Dec 2012 13:55:48 -0500 Subject: [PATCH] Allow "new book" status to check-in without throwing an event This piece relates to checkin rather than checkout. We wanted to be able to simply check these in and have them go to reshelving. Should this use the same status flag, or something else? Depending on the answer, this may or may not be part of this bug. Signed-off-by: Dan Wells --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm | 1 + Open-ILS/src/perlmods/lib/OpenILS/Const.pm | 1 + 2 files changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm index d63cdc8f56..9b963b9dff 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -3499,6 +3499,7 @@ sub check_checkin_copy_status { $status == OILS_COPY_STATUS_IN_TRANSIT || $status == OILS_COPY_STATUS_CATALOGING || $status == OILS_COPY_STATUS_ON_RESV_SHELF || + $status == OILS_COPY_STATUS_NEW_BOOK || $status == OILS_COPY_STATUS_RESHELVING ); return OpenILS::Event->new('COPY_STATUS_LOST', payload => $copy ) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Const.pm b/Open-ILS/src/perlmods/lib/OpenILS/Const.pm index cd82e83c5c..856c63b9d6 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Const.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Const.pm @@ -44,6 +44,7 @@ econst OILS_COPY_STATUS_DAMAGED => 14; econst OILS_COPY_STATUS_ON_RESV_SHELF => 15; econst OILS_COPY_STATUS_LONG_OVERDUE => 16; econst OILS_COPY_STATUS_LOST_AND_PAID => 17; +econst OILS_COPY_STATUS_NEW_BOOK => 101; # --------------------------------------------------------------------- -- 2.11.0