From: Joe Atzberger <atz@esilibrary.com>
Date: Tue, 1 Jun 2010 17:48:24 +0000 (+0000)
Subject: Avoid undef warning, provide lanuage failover to 000 (unknown/default)
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=32f2c2eb73ac1a4258b76ae9c822b87657302382;p=SIPServer.git

Avoid undef warning, provide lanuage failover to 000 (unknown/default)
---

diff --git a/Sip/MsgType.pm b/Sip/MsgType.pm
index 4ddc18f..0b96813 100644
--- a/Sip/MsgType.pm
+++ b/Sip/MsgType.pm
@@ -731,12 +731,13 @@ sub handle_block_patron {
     # we'll just say, "Unspecified", as per the spec.  Let the
     # terminal default to something that, one hopes, will be
     # intelligible
+    my $language = $patron ? $patron->language : '000';
     if ($patron) {
         # Valid patron id
         $patron->block($card_retained, $blocked_card_msg);
     }
 
-    $resp = build_patron_status($patron, $patron->language, $fields);
+    $resp = build_patron_status($patron, $language, $fields);
 
     $self->write_msg($resp);
     return(BLOCK_PATRON);