<perl>
#######################################################
#              Variablen definieren                   #
#######################################################

#######################################################

# Alle Datenbankeinträge holen und wohnortsrtsauswahl #
# bauen (nur die Orte, die Verans eingetr. haben) -   #
# Array füllen, Doubletten verhindern                 #
#######################################################

$tmpPostleitzahl=$Postleitzahl;
$tmpWohnort=$Wohnort;

while(get_next("$db"))
{
     $Wohnort=lc($Wohnort);
      if ($Wohnort gt "a")
       {
        push @opWohnort, $Wohnort if index("@opWohnort", "$Wohnort")<0;
        if ($Bundesland gt "A")
         { 
           push @opBundesland, $Bundesland if index("@opBundesland", "$Bundesland")<0;
         }
        push @opPostleitzahl, $Postleitzahl if index("@opPostleitzahl", "$Postleitzahl")<0;
       }
EOF
}
$Bundesland=$tmpBundesland;
$Postleitzahl=$tmpPostleitzahl;
$Wohnort=$tmpWohnort;
#######################################################
# Aufbereitung der Arraywerte von @opWohnort für      #
# (Drop-Down - option-ausgabe)                        #
#######################################################

foreach $l_ort (@opWohnort_sort)
{
$list_opWohnort=$list_opWohnort."<option value=$l_ort>$l_ort</option>";
}

# Aufbereitung der Arraywerte von @opBundesland für   #
# (Drop-Down - option-ausgabe)                        #
#######################################################

foreach $l_Bundesland (@opBundesland_sort)
{
$list_opBundesland=$list_opBundesland."<option value=$l_Bundesland>$l_Bundesland</option>";
}

# Aufbereitung der Arraywerte von @opPostleitzahl für #
# (Drop-Down - option-ausgabe)                        #
#######################################################

foreach $l_Postleitzahl (@opPostleitzahl_sort)
{
$list_opPostleitzahl=$list_opPostleitzahl."<option value=$l_Postleitzahl>$l_Postleitzahl</option>";
}
#######################################################
</perl>
<form name="Wohnort" action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/RogerPeterWerner/P/ortwahl" method="post" enctype="multipart/form-data" target="_self">
<!-- Bundeslandsuche Optionfeld-->
Bundesland
 <font size=2>

 if ($Bundesland eq "")
  {
out<<EOF;
  <select name="Bundesland:=" onchange="this.form.submit()"style="background-color:#d3d3d3;
 font-size:9pt; color:#003264; font-family:Arial,sans-serif;"><option value="">alle</option>
EOF
  }
 else
  {
out<<EOF;
  <select name="Bundesland:=" onchange="this.form.submit()"style="background-color:#d3d3d3;
 font-size:9pt; color:#003264; font-family:Arial,sans-serif;"><option value=$Bundesland>$Bundesland</option>
<option value="">alle</option>
EOF
  }
</perl>

   $list_opBundesland
  </select></font><br>
<!--Ende Bundeslandfeld Wohnort-->

 <font size=2>
  <select name="Postleitzahl:=" onchange="this.form.submit()"><option value="">alle</option>
   $list_opPostleitzahl
  </select></font>

<!-- Ortssuche Optionfeld-->
Ort
 <font size=2>
  <select name="Wohnort:=" onchange="this.form.submit()"><option value="">alle</option>
   $list_opWohnort
  </select></font><br>

</form>

<input type=hidden name="Bundesland:=" value="$Bundesland">
<input type=hidden name="Postleitzahl:=" value="$Postleitzahl">
<input type=hidden name="Wohnort:=" value="$Wohnort">
<perl>
if ($Bundesland ne "")
   {
    out "Auswahl: ",$Bundesland,"<br>";
   }
  else
   {
    out "Alle Bundesländer<br>";
   }

   {
    out "Postleitzahl: ",$Postleitzahl,"<br>";
   }
  else
   {
    out "Keine bestimmte Postleitzahl<br>";
   }

   {
    out "Wohnort: ",$Wohnort,"<br>";
   }
  else
   {
    out "Kein bestimmter Ort<br>";
   }
</perl>

</form>