From 2724581ee1bba3a87a5e696674b5e79cba49e5e6 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <atz@esilibrary.com>
Date: Fri, 1 Oct 2010 19:57:55 +0000
Subject: [PATCH] Extension for exposing patron internal ID via Patron
 Information

Used by some AMH systems
---
 Sip/Constants.pm | 4 ++++
 Sip/MsgType.pm   | 1 +
 2 files changed, 5 insertions(+)

diff --git a/Sip/Constants.pm b/Sip/Constants.pm
index b205b7f..9f136a1 100644
--- a/Sip/Constants.pm
+++ b/Sip/Constants.pm
@@ -107,6 +107,7 @@ BEGIN {
         FID_ALERT_TYPE
         FID_HOLD_PATRON_ID
         FID_HOLD_PATRON_NAME
+        FID_PATRON_INTERNAL_ID
         )],
     );
 
@@ -259,6 +260,9 @@ use constant {
     FID_ALERT_TYPE             => 'CV',
     FID_HOLD_PATRON_ID         => 'CY',
     FID_HOLD_PATRON_NAME       => 'DA',
+
+    # SIP Extension by Evergreen for AMH: 10/01/2001
+    FID_PATRON_INTERNAL_ID     => 'XI',
 };
 
 #
diff --git a/Sip/MsgType.pm b/Sip/MsgType.pm
index 2d29104..6805294 100644
--- a/Sip/MsgType.pm
+++ b/Sip/MsgType.pm
@@ -980,6 +980,7 @@ sub handle_patron_info {
 
 	# Custom protocol extension to report patron internet privileges
 	$resp .= maybe_add(FID_INET_PROFILE, $patron->inet_privileges);
+    $resp .= maybe_add(FID_PATRON_INTERNAL_ID, $patron->internal_id);   # another extension
 
 	$resp .= maybe_add(FID_SCREEN_MSG, $patron->screen_msg);
 	$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line);
-- 
2.11.0