}
my $hasvals=$self->expecting_values();
my $sql="SELECT tags.name FROM ";
- if($self->in_or())
+ if($self->want_all_tags())
{
$sql .= "files_x_tags\n";
}
return 1;
}
-# if path is .../OR/ or .../OR/NOT
-sub in_or
+# if path is .../OR/ or .../OR/NOT or .../AND/NOT
+sub want_all_tags
{
my($self)=@_;
my $tail=$self->tail();
return 0 unless($tail);
- return 0 unless($tail->type() == $TYPE_BOOL);
- return 1 if($tail->name() eq "OR");
- return 0 unless($tail->name() eq "NOT");
my $parent=$self->tail_parent();
- return 0 unless($parent);
- return 0 unless($parent->type() == $TYPE_BOOL);
- return 1 if($parent->name() eq "OR");
+ my $parent_valid = ($parent && $parent->type() == $TYPE_BOOL);
+ if($tail->type() == $TYPE_BOOL)
+ {
+ return 1 if($tail->name() eq "OR");
+ return 0 unless($tail->name() eq "NOT");
+ return 0 unless($parent_valid);
+ return 1 if($parent->name() eq "OR");
+ return 1 if($parent->name() eq "AND");
+ }
+ elsif($tail->type() == $TYPE_TAG)
+ {
+ return 0 unless($parent_valid);
+ return 1 if($parent->name() eq "NOT");
+ }
return 0;
}