<perl>
 

   'Ü'=>'%dc',
   'Ä'=>'%c4',
   'ö'=>'%f6',
   'ü'=>'%fc',
   'ä'=>'%e4',

  my $string=shift;
  $string=convert_url($string);
foreach (keys %umlaut){
 
$string=~s/$_/$umlaut{$_}/g;
}
  return $string;
}
if($cmd eq "all")
{
out "<a href='http://www....drucken&cmd=all&sort=$sort&Id==$_id'>Ausdruck</a>";
}
else
{
out "<a href='http://www....drucken&sort=$sort&".my_convert(join//,@_sel)."'>Ausdruck</a>";
}
</perl>

<perl>
get "Id==*", "daten";
while (get_next("daten"))
{
for ($i=1; $i<=$Teilnehmer; $i++)
{
out <<EOF;
 
Eintritt:<br>
Datum: $Datum<br>
Name: $Name<br>
Teilnehmer: $Teilnehmer<br>
Karte $i von gesamt $Teilnehmer<br><br>
EOF
}
$i=0;
}
</perl>