X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=misc%2Ftranslator%2FTmplToken.pm;h=87d360777ed1204d94414a6df6b3bb63a1a56f83;hb=09ab9d4769a978769d9e0e17c8d83aaa6876aa13;hp=854a70a304f335602280fce1f7041cdb4d4fbdec;hpb=8b57901d85938321f635f30bd6aaaa257846d162;p=koha.git

diff --git a/misc/translator/TmplToken.pm b/misc/translator/TmplToken.pm
index 854a70a304..87d360777e 100644
--- 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;