From 85824530dc8c37ef7f5be486e2307ae8e27e20f6 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 10 Mar 2021 10:45:18 -0500
Subject: [PATCH] Bug 27908: Add support for circulation status 1 ( other ) for
 damaged items

Some libraries would like to transmit if an item is damaged via the
circulation status field. There is no specific code for a damaged item,
so we should use value 1 (other) along with an AF screen message to
describe the reason for the the circulation status of 1.

Test Plan:
1) Apply these patches
2) prove t/db_dependent/SIP/Transaction.t
---
 C4/SIP/ILS/Item.pm    | 3 +++
 C4/SIP/Sip/MsgType.pm | 8 +++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/C4/SIP/ILS/Item.pm b/C4/SIP/ILS/Item.pm
index 0226556d70..25c7f5135e 100644
--- a/C4/SIP/ILS/Item.pm
+++ b/C4/SIP/ILS/Item.pm
@@ -281,6 +281,9 @@ sub sip_circulation_status {
     elsif ( $self->{location} eq 'CART' ) {
         return '09';    # waiting to be re-shelved
     }
+    elsif ( $self->{damaged} ) {
+        return '01';    # damaged
+    }
     elsif ( $self->{notforloan} < 0 ) {
         return '02';    # on order
     }
diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm
index 62d3d5fcfc..92649db7f9 100644
--- a/C4/SIP/Sip/MsgType.pm
+++ b/C4/SIP/Sip/MsgType.pm
@@ -1206,11 +1206,16 @@ sub handle_item_information {
     } else {
 
         # Valid Item ID, send the good stuff
-        $resp .= $item->sip_circulation_status;
+        my $circulation_status = $item->sip_circulation_status;
+        $resp .= $circulation_status;
         $resp .= $item->sip_security_marker;
         $resp .= $item->sip_fee_type;
         $resp .= timestamp;
 
+        if ( $circulation_status eq '01' ) {
+            $resp .= maybe_add( FID_SCREEN_MSG, "Item is damaged", $server );
+        }
+
         $resp .= add_field( FID_ITEM_ID,  $item->id, $server );
         $resp .= add_field( FID_TITLE_ID, $item->title_id, $server );
 
@@ -1219,6 +1224,7 @@ sub handle_item_information {
         $resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location, $server );
         $resp .= maybe_add( FID_ITEM_PROPS,   $item->sip_item_properties, $server );
 
+
         if ( my $CR = $server->{account}->{cr_item_field} ) {
                 $resp .= maybe_add( FID_COLLECTION_CODE, $item->{$CR}, $server );
         } else {
-- 
2.24.1 (Apple Git-126)