# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
# Hash mit Einwohnerzahlen bauen / Liste mit Ortsnamen bauen
$get1start = runtime();
$a_debug.= "Einwohnerzahlen holen / Liste f. Kommunennamen bauen (ohne Ortsteile)<br>";
get "k_kommune==*", "kommunen", "holeorte";
while(get_next("holeorte")){
   $neu_ort = $ort_temp ne $k_kommune ? 1 : 0; # Flag für neue Kommune
   push @l_orte, $k_kommune if $neu_ort; # Liste mit eindeutigen Ortsnamen bauen
   if ($neu_ort){ # wenn neuer Ort Ortsteile holen
    my $ort = $k_kommune;
      $ort =~ s/ /\\ /g;
    my ($zahl_ew_o, $zahl_ew_ot,$zahl_ew,$cnt_ot);
    get "k_kommune==$ort", "kommunen", "holewz";
    my $anz_ort = $_amount_query;
    while(get_next("holewz")){
       # EW-Zahl wenn kein Ortsteil und EW-Zahl > 0
       $zahl_ew_o = $k_einwohner if $k_ortsteil eq "" && $k_einwohner > 0;
       # EW-Zahl addieren, wenn Ortsteil und EW-Zahl vorhanden
       $zahl_ew_ot += $k_einwohner if $k_ortsteil ne "" && $k_einwohner > 0;
       # $cnt_ot++ if $k_einwohner > 0 && $k_ortsteil ne "";
    } # E while_get_next
      # EW-Zahl in Hash speichern, entweder Summe Ortsteile oder Gesamtort
    $zahl_ew = $zahl_ew_o >= $zahl_ew_ot ? $zahl_ew_o : $zahl_ew_ot;
    $h_ewzahl{$ort} = $zahl_ew if $zahl_ew > 0; # Hashkey-wertpaar nur wenn EW-Zahl in DB vorh.
   } # E if
   $ort_temp = $k_kommune;
} # E while_get_next
$get1ende = runtime();
$get1lz = f_zahl(${\($get1ende-$get1start)},3);
#. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .#