From d2ff6dc6f401e17386bad3d7c852346e14f5fdae Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Thu, 28 Jan 2016 09:32:11 +0100
Subject: [PATCH] Bug 15687: Fix xgettext.pl syntax errors

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 misc/translator/xgettext.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl
index 504dc9f..0b5e6d8 100755
--- a/misc/translator/xgettext.pl
+++ b/misc/translator/xgettext.pl
@@ -48,14 +48,14 @@ sub token_negligible_p {
     my($x) = @_;
     my $t = $x->type;
     return !$extract_all_p && (
-	    $t == C4::TmplTokenType::TEXT? string_negligible_p( $x->string ):
-	    $t == C4::TmplTokenType::DIRECTIVE? 1:
-	    $t == C4::TmplTokenType::TEXT_PARAMETRIZED
+	    $t == C4::TmplTokenType::TEXT() ? string_negligible_p( $x->string ) :
+	    $t == C4::TmplTokenType::DIRECTIVE() ? 1 :
+	    $t == C4::TmplTokenType::TEXT_PARAMETRIZED()
 		&& join( '', map { my $t = $_->type;
-			$t == C4::TmplTokenType::DIRECTIVE?
-				'1': $t == C4::TmplTokenType::TAG?
-					'': token_negligible_p( $_ )?
-					'': '1' } @{$x->children} ) eq '' );
+			$t == C4::TmplTokenType::DIRECTIVE() ?
+				'1' : $t == C4::TmplTokenType::TAG() ?
+					'' : token_negligible_p( $_ ) ?
+					'' : '1' } @{$x->children} ) eq '' );
 }
 
 ###############################################################################
-- 
2.1.4