From: Dan Wells Date: Fri, 14 Dec 2012 18:55:48 +0000 (-0500) Subject: Allow "new book" status to check-in without throwing an event X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5a8cceb96f5f22616f7d5ce1ea09c2ec70b552a8;p=working%2FEvergreen.git 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 --- 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; # ---------------------------------------------------------------------