my %fullname; my %keyword;
tie(%fullname, 'DB_File', "$dbdir/byFullName.db", O_RDONLY);
tie(%keyword, 'DB_File', "$dbdir/byKey.db", O_RDONLY);
my $key = $p->param('keys');
$key =~ s/,//g;
$key =~ s/\s+/ /g;
$key =~ s/^\s+//;
$key =~ s/\s+$//;
$key = umlaute2asc($key);
my @names = ();
if (defined $keyword{$key}) {
@names = split /:/, $keyword{$key};
} elsif (defined $fullname{$key}) {
@names = ($key);
} else {
# Suche nach Namen, die eine Obermenge der
# uebergebenen Namenskomponenten darstellen
}
|