<perl>
del "Beginn>0", "Wochenprogramm";
out "<p style=\"text-align:left; font-size:x-small; color:#FFFFFF; font-family:Courier New\">";
out datum("jetzt", "Wochentag, Tag. Monatname Jahr");
out ":";
$heute=datum("jetzt", "Tag. Monatname Jahr");
$Wo=datum("jetzt", "Wochentag");
out " <b>Unser heutiges Angebot:</b></p>";
</perl>
<loop db=regelm Wochentag==$Wo code=perl>
put ["Beginn", "$Beginn", "Nummer", "$_id", "Datenbank", "regelm"], "Wochenprogramm";
</loop>
<loop db=einmalig Datum==$heute code=perl>
put ["Beginn", "$Uhrzeit", "Nummer", "$_id", "Datenbank", "einmalig"], "Wochenprogramm";
</loop>
<table width=100%><colgroup><col width=20%><col width=80%></colgroup>
<loop db=Wochenprogramm sort=Beginn code=perl>
out "<tr style=\"text-align:left; font-size:x-small; color:#FFFFFF; font-family:arial narrow\">";
out "<td>$Beginn</td>";
get "Id==$Nummer", "$Datenbank";
out "<td>$Name</td></tr>";
</loop>
</table>