<perl>
$neu[0] = neu;
$alt[0] = alt;
</perl>
<loop db=gottesdienste sort=Datum code=perl>
@neu = split ( /\./,$Datum);
out 'Altdatum:  ',$alt[0],'<br>';
out 'Neudatum:  ',$neu[0],'<br>';
if ($alt[0] != $neu[0])
{
out '<b>',$Datum,'</b><br>';
out 'Altdatum:  ',$alt[0],'<br>';
out 'Neudatum:  ',$neu[0],'<br>';
}
out '',$Stadtteil,'<br>';
out '',$Kirche,'<br>';
out '',$GD,'<br>';
out '<p>';
@alt = split ( /\./ ,$Datum);
</loop>