Fixed name coding of Alcatel format payload name (now it is 7bit coded)

diff --git a/GSM/SMS/NBS/Message.pm b/GSM/SMS/NBS/Message.pm
index 4aa132b..c130063 100644 (file)
--- 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