Hallo, Helmut,
mhm, da würd ich ein paar Sachen anders machen:
a) das Datum in $beitragsdatum, einfach gleich das richtige Format angeben und nicht zusätzlich über ne regex wandeln, in etwa so:
$beitragsdatum = datum($beitragsdatum, "Tag0.Monat0.Jahr");
b) die Blockklammern vor dem get und und nach dem EOF wegmachen
c) das <<EOF und EOF ist hier vollkommen falsch, weg damit bzw. besser wäre es in den gesamten Ausgabeblock nach dem while get next und dann die vielen out weg, die kosten nur unnötig Serverzeit
d) beim get einen Ergebnishash angeben
<perl>
$sta = $gruppenname;
get "sort=-onlinedatum,prioritaet","INFO", "infos";
while (get_next("infos")){
$beitragsdatum = datum($beitragsdatum, "Tag0.Monat0.Jahr");
$titelb = convert_url($titel);
out<<EOF;
<table border=0 cellspacing=0 cellpadding=4>
<tr>
<td width=80 bgcolor=$coh valign=bottom align=center>
<a href=http://halleininfo.de/baseportal/INFO_DETAIL&id=$_id&gruppenname==$gruppenname&ST=$statistik>
<font face=Arial size=1>$beitragsdatum
<img src=http://www.halleininfo.de/files/$bild100 border=0 width=75 alt='$titel: Klicken für mehr Information'>
</td>
<td width=450 bgcolor=#$coh valign=top>
<font face=Arial size=2><b>$bereichsname</br></font></b>
<a href=http://halleininfo.de/baseportal/INFO_DETAIL&id=$_id&gruppenname==$gruppenname&ST=$statistik>
<font face=Arial size=3 color=#330099><b><u>$titel</u></b></font>
<font face=Arial size=2><br>$untertitel [mehr ...]</font>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=3>
<tr><td width=430 height=2 bgcolor=$com></td></tr>
</table>
EOF
} # E while get_next
</perl>
</td><td witdh=5 bgcolor=#$com></td>
</td><td width=190 valign=top bgcolor=#$com><font face=Arial size=2><b>TERMINE</b> der nächsten 7 Tage</b><br>
<include src=TERMIN_index>
</td></tr>
</table>
Das dann aufgerufene Template TERMIN_index lautet komplett so:
<loop db=HALLEIN_TERMINE sort=Datum,Zeit Datum\>=jetzt&Datum\<+7 code=perl>
out<<EOF;
<tr><td bgcolor=$cob><font face=Arial size=2><b>$Datum</font></b></td></tr>
<tr><td bgcolor=$com><font face=Arial size=2><b>$Zeit Uhr:</b> $Titel $Detailinfo ($Veranstalter)</font><br></td></tr>
EOF
</loop>
</tr></table>
Ausserdem wäre es aber auch möglich, statt des loop auch hier das get zu nehmen, da sähe dann das Include-Template so aus:
----
<perl>
$tab_include = "<table border=0>";
$vdat1 = datum("jetzt","intern"); $vdat2 = datum("jetzt+7","intern");
get "Datum>=$vdat1 Datum<$vdat2 sort=Zeit", "HALLEIN_TERMINE", "akt_termine";
while(get_next("akt_termine")){
$tab_include .= <<EOF;
<tr><td bgcolor=$cob><font face=Arial size=2><b>$Datum</font></b></td></tr>
<tr><td bgcolor=$com><font face=Arial size=2><b>$Zeit Uhr:</b> $Titel $Detailinfo ($Veranstalter)</font><br></td></tr>
EOF
} # E while get_next
$tab_include .= "</tr></table>";
</perl>
Das hat den Vorteil, dass du die gesamte HTML-Ausgabe (ist ja eine komplette HTML-Tabelle als "Legostein") in der Variable $tab_include stehen hast und die an jeder beliebigen Stelle einfach in den HTML-Text einsetzen kannst. Ausserdem kann man so das Include im Kopf des Hauptemplates einbauen - ist übersichtlicher und m.E. von der Logik her sinnvoller.
hth
Ruben
