Interim update

[koha.git] / misc / translator / TmplToken.pm

diff --git a/misc/translator/TmplToken.pm b/misc/translator/TmplToken.pm
index 854a70a..87d3607 100644 (file)
--- a/misc/translator/TmplToken.pm
+++ b/misc/translator/TmplToken.pm
@@ -87,6 +87,12 @@ sub parameters {
     return map { $_->type == TmplTokenType::DIRECTIVE? $_: ()} @{$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;