<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++;
}
}
push (@zahl, $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>";
for (@monate)
{
get "Datum==$_", "/peryskop/glettkau/Statistik";
out "<tr><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>