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>

diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl
index 504dc9f..0b5e6d8 100755 (executable)
--- 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 '' );
 }
 
 ###############################################################################