<perl>
$merken="&AusgBeginnDat~=$AusgBeginnDat" if $AusgBeginnDat ne "";
$merken.="&AusgOrt~=$AusgOrt" if $AusgOrt ne "";
$merken.="&AusgArt~=$AusgArt" if $AusgArt ne "";
$merken.="&AusgEndeDat~=$AusgEndeDat" if $AusgEndeDat ne "";
</perl>

if ($AusgBeginnArt eq "MJ") {out datum($AusgBeginnDat,"Monatname Jahr");}
elsif ($AusgBeginnArt eq "TMJ") {out datum($AusgBeginnDat,"Wochentag, Tag0. Monatname Jahr");}
elsif ($AusgBeginnArt eq "TMJS") {out datum($AusgBeginnDat,"Wochentag, Tag0. Monatname Jahr, Stunde.Minute"), Uhr;} else {out "";}

elsif ($AusgEndeArt eq "MJ") {out " bis ",datum($AusgEndeDat,"Monatname Jahr");}
elsif ($AusgEndeArt eq "TMJ") {out " bis ",datum($AusgEndeDat,"Tag0. Monatname Jahr");} else {out "";}

<perl>my $newrange=$_range+$_range_length; my $oldrange=$_range-$_range_length;$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length; out "<< <a href=\"$_link&range=$oldrange,$_range_length$merken\">Zurück</a> " if $oldrange>=0; out "<a href=\"$_link&range=$newrange,$_range_length$merken\">Weiter</a> >>" if $newrange<$_amount_query;</perl></

<do action=all db=/gransee-net.de/veranst/veranst sort=AusgBeginnDat ...>