| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
# --- Nutzer-Eingabe bearbeiten ---
if(%_put)
{
set_cookies "Person=$_put{Name}", "Verein=$_put{Verein}", "EMail=$_put{EMail}", "WWW=$_put{WWW}";
unless($Vorschau)
{
get "Id==#", "forum";
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Titel ein! " if $_put{Titel} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
if($Name ne $_put{Name} || $Titel ne $_put{Titel} || $Text ne $_put{Text})
{
if($_get{Pos} eq "")
{
get "Pos==#", "forum";
$newPos=$Pos+1;
$_get{range}="";
$mailpos=$newPos;
} else
{
get "Pos<=$_get{Pos} Pos>=".($_get{Pos}-1)." sort=-", "forum";
$_put{Shift}=$Shift+1; $newPos=$Pos; get_next("forum");
while(get_next("forum"))
{
last if $Shift<$_put{Shift};
$newPos=$Pos;
}
$Pos=0 if $_get{Pos}==$Pos;
$newPos=($Pos+$newPos)/2;
my $mx=$newPos; chop $mx; $newPos=$mx if($mx>$Pos);
#########> hier ist $mailpos=$newPos; dazugekommen
$mailpos=$newPos;
}
$_put{Pos}=$newPos;
put "forum";
#########> den Teil einfügen
if ($mailpos ne "")
{
$mail = int($mailpos+1);
#von dem abgesandten Beitrag werden alle Beiträge in der DB gesucht
get "Pos<=$mail Pos>".($mail-1)." ° Pos==$mailpos sort=-", "forum";
$Thema=$Titel;
$"=' ';
while (get_next("forum"))
{
if ($EMail && $SchickEmail)
{
push @mail, $EMail if index(" @mail ", " $EMail ")<0;
}
}
&send_mail;
}else
{
$Thema=$Titel;
&send_mail;
}
###################<
$msg="Ihr Eintrag wurde aufgenommen...";
} else
{
$msg="Ihr Eintrag ist bereits gespeichert...";
$newPos=$Pos;
}
$_get{Pos}="";
}
}
$allpos="$newPos#";
}
| Alle Einträge zum Thema: | Zur Liste |
# --- Nutzer-Eingabe bearbeiten ---
if(%_put)
{
set_cookies "Person=$_put{Name}", "Verein=$_put{Verein}", "EMail=$_put{EMail}", "WWW=$_put{WWW}";
unless($Vorschau)
{
get "Id==#", "forum";
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Titel ein! " if $_put{Titel} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
if($Name ne $_put{Name} || $Titel ne $_put{Titel} || $Text ne $_put{Text})
{
if($_get{Pos} eq "")
{
get "Pos==#", "forum";
$newPos=$Pos+1;
$_get{range}="";
$mailpos=$newPos;
} else
{
get "Pos<=$_get{Pos} Pos>=".($_get{Pos}-1)." sort=-", "forum";
$_put{Shift}=$Shift+1; $newPos=$Pos; get_next("forum");
while(get_next("forum"))
{
last if $Shift<$_put{Shift};
$newPos=$Pos;
}
$Pos=0 if $_get{Pos}==$Pos;
$newPos=($Pos+$newPos)/2;
my $mx=$newPos; chop $mx; $newPos=$mx if($mx>$Pos);
#########> hier ist $mailpos=$newPos; dazugekommen
$mailpos=$newPos;
}
$_put{Pos}=$newPos;
put "forum";
#########> den Teil einfügen
if ($mailpos ne "")
{
$mail = int($mailpos+1);
#von dem abgesandten Beitrag werden alle Beiträge in der DB gesucht
get "Pos<=$mail Pos>".($mail-1)." ° Pos==$mailpos sort=-", "forum";
$Thema=$Titel;
$"=' ';
while (get_next("forum"))
{
if ($EMail && $SchickEmail)
{
push @mail, $EMail if index(" @mail ", " $EMail ")<0;
}
}
&send_mail;
}else
{
$Thema=$Titel;
&send_mail;
}
###################<
$msg="Ihr Eintrag wurde aufgenommen...";
} else
{
$msg="Ihr Eintrag ist bereits gespeichert...";
$newPos=$Pos;
}
$_get{Pos}="";
}
}
$allpos="$newPos#";
}
put "forum";
put "", "forum";
###########< umgestaltetes Formularfeld
out <<EOF;
<tr>
<td><font color=$schrift face=verdana size=2>
<table cellspacing=0 cellpadding=4 bgcolor=$farbe_hell2 width=100% border=0>
<form name="eing" action="$mylink&wcheck=1&Pos=$pos" 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 width=60><font face=verdana size=2>Name:</td>
<td nowrap><font face=verdana size=2><input type=text name="Name:=" size=25 maxlength=60 value="$name"></td>
<td width=60><font face=verdana size=2>Verein: </td>
<td nowrap><input type=text name="Verein:=" size=25 maxlength=60 value="$verein"></td>
</tr>
<tr>
<td nowrap><font face=verdana size=2> EMail:</td>
<td nowrap><font face=verdana size=2><input type=text name="EMail:=" size=25 maxlength=60 value="$email"></td>
<td nowrap><font face=verdana size=2>Homepage: </td>
<td><input type=text name="WWW:=" size=25 maxlength=60 value="$www"></td>
</tr>
<tr>
<td> </td>
<td nowrap colspan=3><font face=verdana size=2>Emailbenachrichtigung bei Antwort: <input type=checkbox name="SchickEmail:=" checked value="1"></font></td>
</tr>
<tr>
<td><font face=verdana size=2>Titel:</td>
<td colspan=3><input type=text name="Titel:=" size=60 maxlength=80 value="$titel"></td>
</tr>
<tr>
<td><font face=verdana size=2>Text:</td>
<td colspan=3><textarea name="Text:=" rows=10 cols=57 wrap=virtual>$text</textarea></td>
</tr>
<tr>
<td>Icon:</td>
<td colspan=3 align=center>
<table width=100%>
EOF
my $hilf=0;
while (get_next("icons"))
{
out "<tr>" if ($hilf==0);
out "<td nowrap><nobr><input type='radio' name='gif:=' value='$url'";
out "checked value='1'" if ($url eq $gif);
out "><img src='$url' alt='$icon'> </nobr></td>";
$hilf++;
if ($hilf==8)
{
out "</tr>";
$hilf=0;
}
}
out <<EOF;
</table>
</td>
</tr>
<tr>
<td> </td>
<td align=center><input type=submit value="Speichern"></td>
<td align=center><input type=submit name="Vorschau=" value="Vorschau"></td>
<td align=center><input type=reset value="Zurücksetzen"></td>
</tr>
</form>
</table></td></tr>
</table>
EOF
| Liste der Einträge von 43501 bis 43651: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |