test for querying non-fixed-size tags (#t)

This commit is contained in:
Doug Hoyte
2023-05-18 23:16:37 -04:00
parent 76ba9081b1
commit b61167fdf8
2 changed files with 31 additions and 0 deletions

View File

@ -102,6 +102,19 @@ sub doesMatchSingle {
return 0 if !$found;
}
if ($filter->{'#t'}) {
my $found;
foreach my $search (@{ $filter->{'#t'} }) {
foreach my $tag (@{ $ev->{tags} }) {
if ($tag->[0] eq 't' && $tag->[1] eq $search) {
$found = 1;
last;
}
}
}
return 0 if !$found;
}
return 1;
}