['DbDatabase',        'dbdatabase',        ''],

sub parse_dbdatabase {
my ($var, $value) = @_;

return '' if ! $value;
local($Vend::Cfg) = $C;
my ($db, $table) = get_configdb($var, $value);
$db = $db->ref();
my $kindex = $db->config('KEY_INDEX');
#::logDebug("kindex=$kindex");
local($^W) = 0;
my ($k, @f);  # key and fields
my @l;      # refs to locale repository
my @n;      # names of locales
my $name;    # names of current locale

@n = $db->columns();
$k = 0;
foreach $name (@n) {
  next if $k++ == $kindex;
  my $file = $db->field('_file', $name);
  my $type = $db->field('_type', $name);
  next unless $file and $type;
  parse_database('', "$name $file $type");
}
while( ($k , @f ) = $db->each_record) {
  next if $k =~ /^_/;
  my $i;
  for ($i = 0; $i < @f; $i++) {
    next if $i == $kindex;
    next unless length $f[$i];
#::logDebug("f-i=$f[$i] i=$i kindex=$kindex");
    Vend::Config::parse_database('', "$n[$i] $k $f[$i]");
  }
}
$db->close_table();
return $table;
}