<perl>
if ($ga eq "1") # wenn Gesamtansicht gewählt wurde
{ get "Id==$dsn", "w_news";
$a_meldung = "<div align=right>${ \datum($eig_datum, 'Tag.Monat.Jahr')}</div>$Meldung<br> <div align=right>Zurück zur <a href=$_link>Übersicht</a> </div><br>";
}elsif ($ga eq "") # sonst Übersicht anzeigen
{
get "Id=* sort=-", "w_news";
while (get_next(w_news))
{
# Ausgabelänge begrenzen für Feld Meldung #
$laenge=80;
$Ende = substr($Meldung, $laenge);
$Stop = index($Ende,"\ "); #Leerzeichen suchen (Wortende)
$Ende = substr($Ende, 0, $Stop);
$Anfang = substr($Meldung, 0, $laenge);
$a_meldung.= "<div align=right>${ \datum($eig_datum, 'Tag.Monat.Jahr')}</div>$Anfang$Ende....<div align=left> <a href=$_link&dsn=$_id&ga=1>Gesamte Meldung</a> </div><br>";
}
}
out<<EOF;
<html>
<head>
<title>Newsanzeige</title>
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">
<center>
<table width=500>
<tr><td align=left>
$a_meldung
</td></tr>
</body>
</html>
EOF
</perl>
