noch ein Schritt, dann habe ich es vielleicht geschafft :-)
Also, ich habe die Datenbank um das Feld "Icon" erweitert (großgeschriben). Dann die "$_put{Icon}" ergänzt und im Eingabeformular Radiobuttons und Gifs eingebaut (die Gif-Adressen werde ich später ändern).
Irgendein Fehler ist aber immer noch vorhanden und ich finde es nicht :-(
zum Testen kannst du es ja hier mal ausprobieren:
http://baseportal.de/cgi-bin/baseportal.pl?htx=/esasen/clanphilos
Templeate-Ausschnitt:
# --- Ausgabe eines ausgewählten, abgewiesenen oder vorgeschauten Eintrags ---
out "<a name=\"eingabe\"> </a><br>";
out "<ul><font size=3".($emsg?" color=d80000":"")."><b>$emsg$msg</b></font></ul>" if $emsg || $msg;
if($Vorschau || %_put)
{
out "<center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b> ".($Vorschau?"Vorschau:":"Ihr Eintrag:")."</b></font></td><td width=10% align=center nowrap> <a href=\"#list\"><font size=2 face=arial>Zur Liste</a> </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>";
}
if($_get{Pos} ne "")
{
out "<center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b> Ausgewählter Eintrag:</b></font><td width=10% align=center nowrap> <a href=\"#list\"><font size=2 face=arial>Zur Liste</a> </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> Alle Einträge zum Thema:</b></font></td><td width=10% align=center nowrap> <a href=\"#list\"><font size=2 face=arial>Zur Liste</a> </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> Neuer Eintrag:</b></font></td><td width=10% align=center nowrap> <a href=\"#list\"><font size=2 face=arial>Zur Liste</a> </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> 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();
}
get "Pos==* sort=- range=".($_get{range} || "0,$getlist");
out "<a name=\"list\"> </a></ul><center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b> 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> <a href=\"#eingabe\"><font size=2 face=arial>Zur Eingabe</a> </td></tr></table></center><font face=arial,helvetica size=2><ul>";
&list_out($allpos, $_get{Pos});
# --- blaetter-links ---
out "<br><br><br>";
$r1=$_range; $r2=$_range_length || $getlist;
if($_amount_all>$r2)
{
my $z=0;
@ilist=();
if($r1-$r2>=0)
{
push @ilist, "<< <a href=\"$mylink&range=0,$r2\">Neueste Einträge</a>";
push @ilist, "< <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> >";
push @ilist, "<a href=\"$mylink&range=".(int($_amount_all/$r2)*$r2).",$r2\">Älteste Einträge</a> >>";
$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 ---
sub form_out
{
my($pos, $name, $email, $www, $titel, $text,$icon)=@_;
$name=~ s/"/"/gs;
$email=~ s/"/"/gs;
$www=~ s/"/"/gs;
$text=~ s/</</gs; $text=~ s/>/>/gs;
$titel=~ s/"/"/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>";
out <<EOF;
Idee</span></td>
<td> </td>
</tr>
</table>
<!-- Ende Icons -->
</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>
