Fix for syntax error in the spanish opac file

[koha_fer] / misc / translator / TmplToken.pm

diff --git a/misc/translator/TmplToken.pm b/misc/translator/TmplToken.pm
index 3a20aa8..cb883b4 100644 (file)
--- a/misc/translator/TmplToken.pm
+++ b/misc/translator/TmplToken.pm
@@ -1,6 +1,7 @@
 package TmplToken;
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use TmplTokenType;
 require Exporter;
 
@@ -32,7 +33,7 @@ sub new {
     my $class = ref($this) || $this;
     my $self = {};
     bless $self, $class;
-    ($self->{'_string'}, $self->{'_type'}, $self->{'_lc'}) = @_;
+    ($self->{'_string'}, $self->{'_type'}, $self->{'_lc'}, $self->{'_path'}) = @_;
     return $self;
 }
 
@@ -46,6 +47,11 @@ sub type {
     return $this->{'_type'}
 }
 
+sub pathname {
+    my $this = shift;
+    return $this->{'_path'}
+}
+
 sub line_number {
     my $this = shift;
     return $this->{'_lc'}
@@ -62,6 +68,91 @@ sub set_attributes {
     return $this;
 }
 
+# only meaningful for TEXT_PARAMETRIZED tokens
+sub children {
+    my $this = shift;
+    return $this->{'_kids'};
+}
+
+# only meaningful for TEXT_PARAMETRIZED tokens
+sub set_children {
+    my $this = shift;
+    $this->{'_kids'} = ref $_[0] eq 'ARRAY'? $_[0]: \@_;
+    return $this;
+}
+
+# only meaningful for TEXT_PARAMETRIZED tokens
+# FIXME: DIRECTIVE is not necessarily TMPL_VAR !!
+sub parameters_and_fields {
+    my $this = shift;
+    return map { $_->type == TmplTokenType::DIRECTIVE? $_:
+               ($_->type == TmplTokenType::TAG
+                       && $_->string =~ /^<input\b/is)? $_: ()}
+           @{$this->{'_kids'}};
+}
+
+# only meaningful for TEXT_PARAMETRIZED tokens
+sub anchors {
+    my $this = shift;
+    return map { $_->type == TmplTokenType::TAG && $_->string =~ /^<a\b/is? $_: ()} @{$this->{'_kids'}};
+}
+
+# only meaningful for TEXT_PARAMETRIZED tokens
+sub form {
+    my $this = shift;
+    return $this->{'_form'};
+}
+
+# only meaningful for TEXT_PARAMETRIZED tokens
+sub set_form {
+    my $this = shift;
+    $this->{'_form'} = $_[0];
+    return $this;
+}
+
+sub has_js_data {
+    my $this = shift;
+    return defined $this->{'_js_data'} && ref($this->{'_js_data'}) eq 'ARRAY';
+}
+
+sub js_data {
+    my $this = shift;
+    return $this->{'_js_data'};
+}
+
+sub set_js_data {
+    my $this = shift;
+    $this->{'_js_data'} = $_[0];
+    return $this;
+}
+
+# predefined tests
+
+sub tag_p {
+    my $this = shift;
+    return $this->type == TmplTokenType::TAG;
+}
+
+sub cdata_p {
+    my $this = shift;
+    return $this->type == TmplTokenType::CDATA;
+}
+
+sub text_p {
+    my $this = shift;
+    return $this->type == TmplTokenType::TEXT;
+}
+
+sub text_parametrized_p {
+    my $this = shift;
+    return $this->type == TmplTokenType::TEXT_PARAMETRIZED;
+}
+
+sub directive_p {
+    my $this = shift;
+    return $this->type == TmplTokenType::DIRECTIVE;
+}
+
 ###############################################################################
 
 1;