From dfae7dac628a3447b5eb8d739c981823ba013c4d Mon Sep 17 00:00:00 2001
From: short <>
Date: Mon, 7 Jan 2002 12:07:29 +0000
Subject: [PATCH] Fixed name coding of Alcatel format payload name (now it is
 7bit coded)

---
 GSM/SMS/NBS/Message.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/GSM/SMS/NBS/Message.pm b/GSM/SMS/NBS/Message.pm
index 4aa132b..c130063 100644
--- a/GSM/SMS/NBS/Message.pm
+++ b/GSM/SMS/NBS/Message.pm
@@ -154,7 +154,7 @@ sub _ie_alcatel {
 	return $self->_iebuilder(IEI_ALCATEL,
 			(!defined($args{"name"}) ? (0x00) :  # bit 7=0 (use GSM charset)
 					(length($args{"name"}), unpack("C*",
-							encode_payload(0xF5, GSM::SMS::PDU->inversetranslate($args{"name"}))))  # 0xF5 DCS=any 8bit
+							encode_payload(0xF1, GSM::SMS::PDU->inversetranslate($args{"name"}))))  # 0xF1 DCS=any 7bit
 					),
 			(!!$args{"ems_compat"} << 7)  # bit 7=EMS compatibility
 					|($args{"alcatel_type"} & 0x07),  # bits 0..2=Alcatel message type
-- 
1.8.3.1