my $self={};
bless($self,$class);
+ $self->{db}=shift;
$self->{name}=shift;
-
+ $self->{id}=$self->{db}->lookup_id("tagvals", $self->{name});
+ return(undef) unless(defined($self->{id}));
return $self;
}
sub type { return "tagval"; }
+sub id { return shift->{id}; }
1;