<loop db=XYZ showamount=sel range=0,1>

<perl>

   'Ü'=>'%dc',
   'Ä'=>'%c4',
   'ö'=>'%f6',
   'ü'=>'%fc',
   'ä'=>'%e4',
); ### hier fehlte ;
sub my_convert{
  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.domain.de/baseportal/verzeichnis/template&cmd=all&Id==$_id'>HIER</a>";
}
else
{
out "<a href='http://www.domain.de/baseportal/verzeichnis/template&".my_convert(join//,@_sel)."'>HIER</a>";
}
</perl>