Hallo,
in diesem Template soll das Datum bei den Suchergebnissen mit der Variablen $Termin ausgegeben werden (Tag,Monat,Jahr).
Nun geht das ja normalerweise mit
<perl>
out datum("$Termin", "Wochentag, Tag.Monat.Jahr")
</perl>
Ich bin aber im vorliegenden Fall bereits in einem Perl-Tag.
Wie muss ich die Syntax da stricken?
Danke
Gruß
Micha
<html>
<head>
<title>Sizungen</title>
</head>
<body bgcolor=#ffffff>
<include src=../style>
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<font size=2 face=verdana>Volltextsuche:</font> <input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen">
</form>
<perl>
return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
$out.=<<EOF;
<b><ul><font size=2 face=verdana>$Name</b></font><br><font size=1 face=verdana,arial,helvetica>
$Termin
<br>$Tagesordnung<br><u>Protokoll:</u><br>$Protokoll
<br><br>$Teilnehmer</font><br>
<font size=1 face=verdana><a href="baseportal.pl?htx=/rathaus-buerstadt.de/sitzungsdienst/detailseite_sitzungen&Id=$_id">alle Details zur Sitzung</a></font></ul>
<hr>
EOF
}
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
if ($_fullsearch_amount<1)
{
out "<font size=2 face=verdana, arial><b>Ihre Suchabfrage ergab leider keinen Treffer.</b></font><p>";
} else
{
out "<font size=2 face=verdana, arial><b>Ihre Suchanfrage ergab $_fullsearch_amount Treffer (rot markiert)</b></font><p><hr>";
}
out $out;
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;
if($_fullsearch_match_pos<$newrange)
{
$txt="Suche nach weiteren Treffern";
$newrange=$_fullsearch_match_pos;
} else
{
$txt="Suche in weiteren Datensätzen";
}
if($newrange<$_amount_all)
{
out "<font size=2 face=verdana, arial>Es wurde noch nicht in allen Datensätzen gesucht:</font>";
out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
out "<font size=2 face=verdana, arial>Die Datenbank wurde komplett durchsucht.<br><br></font>";
}
$_fullsearch_amount;
</perl>
<table border="0" cellpadding="4" cellspacing="1" width=100%>
<tr bgcolor="#ff9933">
<td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Gremium</b></div></font></td>
<td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Datum</b></div></font></td>
<td width="10%"><font face="Verdana,Arial" size="2" color="#000000"><div align="center"><b>Bemerkung</b></div></font></td>
</tr>
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Archiv öffentlicher Sitzungen städt. Gremien (chronologisch geordnet)</b></font></p>
<loop db=sitzungen sort=-Termin PolitischesGremium~=1 Archiv~=1 range^=0,10>
<tr bgcolor="#CCCCC">
<td width="10%"><font face="Verdana,Arial" size="2">$Name</a> </font></td>
<td width="10%"><font face="Verdana,Arial" size="2">$Termin</a></td>
<td width="10%"><font face="Verdana,Arial" size="2"><a href="baseportal.pl?htx=/rathaus-buerstadt.de/sitzungsdienst/detailseite_sitzungen&Id=$_id">alle Details</a></td>
</tr>
</loop>
</table>
<p align="center"> <font face="Verdana,Arial, Helvetica, sans-serif" size="2"><perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<< <a href=\"$_link&range=$oldrange,$_range_length\">Zurück</a> " if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length\">Weiter</a> >>" if $newrange<$_amount_query;
</perl>
<include src=../footer>