<perl>
if ($cmd eq "detail")
{
$"=' ';
@liste;
get "Datum==$monat sort=-Datum","/peryskop/glettkau/Statistik";
while (get_next("/peryskop/glettkau/Statistik"))
{
if (index(" @liste "," ".datum($Datum,"Tag.Monat.Jahr")." ")<0)
{
push (@zahl, $i) if $_loop != 0;
$i=0; 
push (@liste, datum($Datum,"Tag.Monat.Jahr"));
$i++;
}else
{
$i++;
}
}

for (@liste)
{
out "<br>".datum($_,"Tag.Monat.Jahr")." ($zahl[$x])";
$x++; 
}
} 

@monate="Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember";
out "<table>";
foreach (@monate)
{ 
out "<tr>";
get "Datum==$_", "/peryskop/glettkau/Statistik";
out "<td width=100><i><a href=\"$_link&cmd=detail&monat=".datum("$_", "Monatname")."\">".datum("$_", "Monatname")."</a></i></td><td width=100 align=right><b>$_amount_query</b></td></tr>";
}
</perl>
</table>
 
Bei mir hat das get laut doku (_Datum_Monat~=..) aber auch wieder den Dezember dazu geschmissen.