# --- Ausgabe eines ausgewählten, abgewiesenen oder vorgeschauten Eintrags ---

out "<ul><font size=3".($emsg?" color=d80000":"")."><b>$emsg$msg</b></font></ul>" if $emsg || $msg;

{
 out "<center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b>&nbsp;".($Vorschau?"Vorschau:":"Ihr Eintrag:")."</b></font></td><td width=10% align=center nowrap>&nbsp;<a href=\"#list\"><font size=2 face=arial>Zur Liste</a>&nbsp;</td></tr></table></center><font face=arial,helvetica size=2><ul>";
 &all_out("", $_put{Name}, $_put{EMail}, $_put{WWW}, $_put{Titel}, $_put{Text}, $_put{Icon});
 out "</ul>";
}

{
 out "<center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b>&nbsp;Ausgew&auml;hlter Eintrag:</b></font><td width=10% align=center nowrap>&nbsp;<a href=\"#list\"><font size=2 face=arial>Zur Liste</a>&nbsp;</td></tr></table></center><font face=arial,helvetica size=2><ul>";

 get "Pos==$_get{Pos}";
 &all_out();
 out "<h3>Ihre Antwort:</h3>";

 if($Vorschau || $emsg)
 {
  &form_out($_get{Pos}, $_put{Name}, $_put{EMail}, $_put{WWW}, $_put{Titel}, $_put{Text}, $_put{Icon});
 } else
 {
  my $t=$Titel;
  $t="Re: $t" unless $t=~ /^Re: /i;
  &form_out($Pos, "", "", "", $t);
 }
 my $p=int($Pos); $p++ if $p ne $Pos;
 get "sort=- Pos<=$p Pos>".($p-1);

 out "<p><a href=\"$mylinkr\">Neuer Eintrag</a>";
 if($_amount_query>1)
 {
  out "</ul><br><center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b>&nbsp;Alle Eintr&auml;ge zum Thema:</b></font></td><td width=10% align=center nowrap>&nbsp;<a href=\"#list\"><font size=2 face=arial>Zur Liste</a>&nbsp;</td></tr></table></center><font face=arial,helvetica size=2><ul>";
  $allpos=&all_out($_get{Pos});
  out "<br>";
 } else
 {
  $allpos="$_get{Pos}#";
  }
} else
{
 out "<center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b>&nbsp;Neuer Eintrag:</b></font></td><td width=10% align=center nowrap>&nbsp;<a href=\"#list\"><font size=2 face=arial>Zur Liste</a>&nbsp;</td></tr></table></center><font face=arial,helvetica size=2><ul>";
 if($Vorschau || $emsg)
 {
  &form_out($_get{Pos}, $_put{Name}, $_put{EMail}, $_put{WWW}, $_put{Titel}, $_put{Text}, $_put{Icon});
 } else
 {
  &form_out();
 }
}
# --- Ausgabe der ersten Eintraege und der Liste ---
unless($wcheck)
{
 out "</ul><br><center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b>&nbsp;Die aktuellsten $getfirst Einträge:</b></font></td></tr></table></center><font face=arial,helvetica size=2><ul>";
 get "Id==* sort=- range=0,$getfirst";
 $allpos=&all_out();
}

 out "<a name=\"list\">&nbsp;</a></ul><center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b>&nbsp;Liste der ".($_range>0?"Einträge von $_range bis ".($_range+$_range_length>$_amount_query?$_amount_query:$_range+$_range_length):"ersten $getlist Einträge").":</b></font></td><td width=10% align=center nowrap>&nbsp;<a href=\"#eingabe\"><font size=2 face=arial>Zur Eingabe</a>&nbsp;</td></tr></table></center><font face=arial,helvetica size=2><ul>";
&list_out($allpos, $_get{Pos});
# --- blaetter-links ---

$r1=$_range; $r2=$_range_length || $getlist;

{
 my $z=0;
 @ilist=();

 if($r1-$r2>=0)
 {
  push @ilist, "&lt;&lt; <a href=\"$mylink&range=0,$r2\">Neueste Einträge</a>";
  push @ilist, "&lt; <a href=\"$mylink&range=".($r1-$r2).",$r2\">Neuere Einträge</a>";
  $z++;
 }
 push @ilist, "<a href=\"#eingabe\">Zur Eingabe</a>";

 if($r1+$r2<$_amount_all)
 {
  push @ilist, "<a href=\"$mylink&range=".($r1+$r2).",$r2\">Ältere Einträge</a> &gt;";
  push @ilist, "<a href=\"$mylink&range=".(int($_amount_all/$r2)*$r2).",$r2\">Älteste Einträge</a> &gt;&gt;";
  $z+=2;
 }
 out "</ul><center><table width=85%><tr><td";
 out " align=right" if $z==2;
 out " align=middle" if $z==3;
 out " nowrap><font size=2 face=arial,helvetica>".(join " | ", @ilist)."</td></tr></table>";
}
# --- Formular-Ausgabe ---

{
 my($pos, $name, $email, $www, $titel, $text,$icon)=@_;
 $name=~ s/"/"/gs;
 $email=~ s/"/"/gs;
 $www=~ s/"/"/gs;
 $text=~ s/</&lt;/gs; $text=~ s/>/&gt;/gs;
 $titel=~ s/"/&quot;/gs;

 out <<EOF;

<table>
<form action="$mylinkr" method="post" enctype="multipart/form-data" onsubmit="return testform()">
<input type=hidden name="htx=" value="$htx"><input type=hidden name="wcheck=" value="1">
<input type=hidden name="range=" value="$_get{range}"><input type=hidden name="Pos=" value="$pos">
<tr><td><font face=arial,helvetica size=2>Name:</td><td nowrap><input type=text name="Name:=" size=19 maxlength=60 value="$name"><font face=arial,helvetica size=2> EMail: <input type=text name="EMail:=" size=14 maxlength=60 value="$email"> WWW: <input type=text name="WWW:=" size=14 maxlength=60 value="$www"></td></tr><tr>
<td colspan="5">
<!-- hier sind die Icons -->
<table width="100%" cellspacing=0 cellpadding=0>
<tr>
<td> </td><td>
EOF
out "<input type=radio value=smiley name=Icon:= ".($icon eq "smiley"?"checked ":"")."style='border-color:#FFCC00;background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/smiley.gif'><span class='tatext'> Froh</span></td>";
out "<td><input type='radio' value='zornig' name='Icon:=' ".($icon eq "zornig"?"checked ":"")."style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/zornig.gif'><span class='tatext'> Ärger</span></td>";
out "<td><input type=radio value=traurig name=Icon:= ".($icon eq "zornig"?"checked ":"")."style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/traurig.gif'><span class=tatext>Trauer</span></td>";
out "<td><input type=radio value=daumen_unten name=Icon:= ".($icon eq "daumen_unten"?"checked ":"")."style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/daumen_unten.gif'><span class='tatext'> Kontra</span></td>";
out "<td><input type='radio' value='daumen_oben' name='Icon:=' ".($icon eq "daumen_oben"?"checked ":"")."style='border-color:#FFCC00; background-color:#FFFFff;'>";
out <<EOF;
<img src='http://www.verwitwet.de/bilder/smiley/daumen_oben.gif'><span class='tatext'> Pro</span></td>
</tr><tr>
<td> </td><td>
 
EOF
out "<input type='radio' value='blume' name='Icon:=' ".($icon eq "blume"?"checked ":"")."style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/blume.gif'><span class='tatext'> Danke</span></td>";
out "<td><input type=radio value=herz name=Icon:= ".($icon eq "herz"?"checked ":"")." style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/herz.gif'><span class=tatext> Herz(-lich)</span></td>";
out "<td><input type=radio value=anmerkung name=Icon:= ".($icon eq "anmerkung"?"checked ":"")." style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/anmerkung.gif'><span class=tatext> Anmerkung</span></td>";
out "<td><input type=radio value=frage name=Icon:= ".($icon eq "frage"?"checked ":"")." style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/frage.gif'><span class=tatext> Frage</span></td>";
out "<td><input type=radio value=idee name=Icon:= ".($icon eq "idee"?"checked ":"")."style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/idee.gif'><span class=tatext>";

<td> </td>
</tr>
</table>

</td>
</tr>
<tr>
<td><font face=arial,helvetica size=2>Titel:</td><td><input type=text name="Titel:=" size=50 maxlength=80 value="$titel"></td></tr>
<tr><td><font face=arial,helvetica size=2>Text:</td><td><textarea name="Text:=" rows=10 cols=55 wrap=virtual>$text</textarea></td></tr>
<tr><td></td><td><input type=submit value="Speichern"> <input type=submit name="Vorschau=" value="Vorschau"> <input type=reset value="Zurücksetzen"></td></tr>
</form>
</table>