From c03f7294142d39e8cbddccd44139baf4616c4650 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Radek=20=C5=A0iman?= Date: Thu, 22 Jun 2017 09:50:41 +0200 Subject: [PATCH] Bug 17705: Fixed forbidden patterns This patch only removes trailing space chars in Koha/PosTerminal/Message/Header.pm --- Koha/PosTerminal/Message/Header.pm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/Koha/PosTerminal/Message/Header.pm b/Koha/PosTerminal/Message/Header.pm index bc5be26..129b79e 100644 --- a/Koha/PosTerminal/Message/Header.pm +++ b/Koha/PosTerminal/Message/Header.pm @@ -103,23 +103,23 @@ sub getContent { sub dumpObject { my( $self ) = @_; my @dt = ( $self->dateTime =~ m/../g ); - my $obj = - "protocol:\n" - . " type: '".$self->protocolType."'\n" + my $obj = + "protocol:\n" + . " type: '".$self->protocolType."'\n" . " version: '".$self->protocolVersion."'\n" - . "terminal ID: '".$self->terminalID."'\n" + . "terminal ID: '".$self->terminalID."'\n" . "date:\n" - . " year: '".$dt[0]."'\n" - . " month: '".$dt[1]."'\n" - . " day: '".$dt[2]."'\n" + . " year: '".$dt[0]."'\n" + . " month: '".$dt[1]."'\n" + . " day: '".$dt[2]."'\n" . "time:\n" - . " hours: '".$dt[3]."'\n" - . " minutes: '".$dt[4]."'\n" - . " seconds: '".$dt[5]."'\n" - . "tags: '".$self->tags."'\n" - . "length: '".$self->length."'\n" - . "crc: '".$self->crc."'\n"; - + . " hours: '".$dt[3]."'\n" + . " minutes: '".$dt[4]."'\n" + . " seconds: '".$dt[5]."'\n" + . "tags: '".$self->tags."'\n" + . "length: '".$self->length."'\n" + . "crc: '".$self->crc."'\n"; + return $obj; } -- 2.1.4