X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=misc%2Ftranslator%2Ftext-extract2.pl;h=79bf5ad2b368b8612a15cec42cdab12334bb6857;hb=bc50735e3a8fe6ff2242810636ae5176e2c62296;hp=452fd896660186664e16961351df1f73ec759402;hpb=5e0b850d49f452ffbca41f47dc190d6d4f2323c7;p=koha_fer

diff --git a/misc/translator/text-extract2.pl b/misc/translator/text-extract2.pl
index 452fd89666..79bf5ad2b3 100755
--- a/misc/translator/text-extract2.pl
+++ b/misc/translator/text-extract2.pl
@@ -42,7 +42,7 @@ sub debug_dump ($) { # for testing only
 	my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes);
 	printf "%s [line %d]:\n", $kind->to_string, $s->line_number;
 	printf "%4dH%s\n", length($t), underline($t);
-	if ($kind == TmplTokenType::TAG && %$attr) {
+    if ($kind == TmplTokenType::TAG() && %$attr) {
 	    printf "Attributes:\n";
 	    for my $a (keys %$attr) {
 		my($key, $val, $val_orig, $order) = @{$attr->{$a}};
@@ -50,7 +50,7 @@ sub debug_dump ($) { # for testing only
 		$val_orig;
 	    }
 	}
-	if ($kind == TmplTokenType::TEXT_PARAMETRIZED) {
+    if ($kind == TmplTokenType::TEXT_PARAMETRIZED()) {
 	    printf "Form (c-format string):\n";
 	    printf "%dH%s\n", length $s->form, underline $s->form;
 	    printf "Parameters:\n";
@@ -79,10 +79,10 @@ sub text_extract ($) {
 	my $s = TmplTokenizer::next_token $h;
     last unless defined $s;
 	my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes);
-	if ($kind == TmplTokenType::TEXT) {
+    if ($kind == TmplTokenType::TEXT()) {
 	    $t = TmplTokenizer::trim $t;
 	    $text{$t} = 1 if $t =~ /\S/s;
-	} elsif ($kind == TmplTokenType::TAG && %$attr) {
+    } elsif ($kind == TmplTokenType::TAG() && %$attr) {
 	    # value [tag=input], meta
 	    my $tag = lc($1) if $t =~ /^<(\S+)/s;
 	    for my $a ('alt', 'content', 'title', 'value') {