<perl>
if ($para eg "1")
{
   $schleife=0;
   @liste;
   $"=' ';
   get "Id==* sort=Land", "brueckenbau";
   while (get_next ("brueckenbau"))
   {
   if ($Land ne "-" || "")
   {
   if (index(" @liste "," $Land ")<0)
   {
   push (@zahl, $i) if $schleife != 0;
   $i=0;
   $schleife++; 
   push (@liste, $Land);
   $i++;
   }else
   {
   $i++;
   }
   }
   }
   push (@zahl, $i);
   $x=0;
   for (@liste)
   {
   out "<br><a href=http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/ergebnis&mode=pictures&range=0,5&Land~=".convert_url($_).">$_</a> ($zahl[$x])";
   $x++; 
   }
}
if ($para eg "2") - Ab hier folgt die Verarbeitung für Parameter 2
{
   $schleife=0;
   @liste;
   $"=' ';
   get "Id==* sort=XYZ", "brueckenbau";
   while (get_next ("brueckenbau"))
   {
   if ($XYZ ne "-" || "")
   {
   if (index(" @liste "," $XYZ ")<0)
   {
   push (@zahl, $i) if $schleife != 0;
   $i=0;
   $schleife++; 
   push (@liste, $XYZ);
   $i++;
   }else
   {
   $i++;
   }
   }
   }
   push (@zahl, $i);
   $x=0;
   for (@liste)
   {
   out "<br><a href=http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/ergebnis&mode=pictures&range=0,5&Land~=".convert_url($_).">$_</a> ($zahl[$x])";
   $x++; 
   }
}
</perl> 
</ul>
<ul>
<perl>
if ($Land eq "-" || "") {

<p><a href="http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/ergebnis&mode=pictures&range=0,5&Land~=-" target="_self">ohne Angabe</a></p>
 
EOF
}
</perl>
</ul>