}
elsif($state==$STATE_TAG || $state==$STATE_TAGVAL)
{
- if($state==$STATE_TAG && $self->at($TYPE_TAG) &&
+ my $tail=$self->tail();
+ if($state==$STATE_TAG && $self->is($TYPE_TAG, $tail) &&
$self->{db}->tag_has_values($self->tail()->id()))
{
@dents=$self->tags();
return($self->{elements}->[$#{$self->{elements}}]);
}
-sub at
-{
- my($self, $type)=@_;
- return($self->is($type, $self->tail()));
-}
-
sub is
{
my($self, $type, $thing)=@_;