<perl>
get "vadatum\>jetzt sort=vadatum", "buch", "ergebnis";

{
  $va_datum=datum("$vadatum", "Tag0.Monat0.Jahr2");
  $monat=datum("$vadatum","Monat");
$text{$monat}.=<<EOF
$titel ($va_datum)<br>

}

{
  $monatname=datum("$monat.2000","Monatname");
out <<EOF;
<li class="$_id"><a class="sidebarmenuselect_noselect" href="#"><span></span><h6>$text{$monat}</h6></a></li>
EOF
}
</perl>