| 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 |
<include src=../mainmenue> <!-- Seiteninhalt --> <do action=input db=main>
if($namerein ne "")
{
get "Name==!$namerein", "../einsaetze/nutzer";
get "Kuerzel", "../einsaetze/main", "Autor";
if($Passwort ne "" && $Passwort eq $pwrein)
{
get "Nummer==#", "../einsaetze/main"; ## letzte Nummer aus DB holen
$Nummer++; ## diese Nummer um eins erhöhen
out <<EOF;
<table><form action="http://domain.name/cgi-bin/baseportal.pl?namerein=$namerein&pwrein=$pwrein&htx=/einsaetze/anmeldung&db=main&cmd=add" method="post" enctype="multipart/form-data">
<input type=hidden name="namerein=" value="$namerein">
<input type=hidden name="pwrein=" value="$pwrein">
<input type=hidden name="htx=" value="/einsaetze/anmeldung">
<input type=hidden name="db=" value="einsaetze/main">
<input type=hidden name="cmd=" value="add">
<input type=hidden name="namerein=" value="test">
<input type=hidden name="pwrein=" value="user">
<input type=hidden name="htx=" value="/ffwn/einsaetze/anmeldung">
do_all "db=main listfields=Nummer,Datum,Stichwort,Einsatzort sort=-Datum databack=f0f0f0 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial selectbrowse=no", "namerein", "pwrein", "ip"; EOF
} else { out "Unbekannter Benutzername oder falsches Passwort."; $namerein=""; }
if($namerein eq "")
{
<form action="http://domain.name/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form> EOF
</perl> <include src=../mainfooter>
| Alle Einträge zum Thema: | Zur Liste |
<include src=../mainmenue> <!-- Seiteninhalt --> <do action=input db=main>
if($namerein ne "")
{
get "Name==!$namerein", "../einsaetze/nutzer";
get "Kuerzel", "../einsaetze/main", "Autor";
if($Passwort ne "" && $Passwort eq $pwrein)
{
get "Nummer==#", "../einsaetze/main"; ## letzte Nummer aus DB holen
$Nummer++; ## diese Nummer um eins erhöhen
out <<EOF;
<table><form action="http://domain.name/cgi-bin/baseportal.pl?namerein=$namerein&pwrein=$pwrein&htx=/einsaetze/anmeldung&db=main&cmd=add" method="post" enctype="multipart/form-data">
<input type=hidden name="namerein=" value="$namerein">
<input type=hidden name="pwrein=" value="$pwrein">
<input type=hidden name="htx=" value="/einsaetze/anmeldung">
<input type=hidden name="db=" value="einsaetze/main">
<input type=hidden name="cmd=" value="add">
<input type=hidden name="namerein=" value="test">
<input type=hidden name="pwrein=" value="user">
<input type=hidden name="htx=" value="/ffwn/einsaetze/anmeldung">
do_all "db=main listfields=Nummer,Datum,Stichwort,Einsatzort sort=-Datum databack=f0f0f0 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial selectbrowse=no", "namerein", "pwrein", "ip"; EOF
} else { out "Unbekannter Benutzername oder falsches Passwort."; $namerein=""; }
if($namerein eq "")
{
<form action="http://domain.name/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form> EOF
</perl> <include src=../mainfooter>
# Parameter use für Datenbank, die bearbeitet wird
# Parameter act: n-neu c-ändern d-löschen r-registrieren
if ($use ne "" && $zug == 4) # zug aus &chk_zugang (4=Erlaubt)
{$a_debug.=".\$use($use) vorhanden zug==4 - Aktionsauswahl:<br>";
# -------- Aktionen in Datenbanken je nach $act ------- #
my $db_daten = substr($use,2); # Datenbankname aus Parameter $use extrahieren (erste 2 Zeichen weg)
if ($act eq "n")
{
put undef ,"$db_daten";
$act = "n";
$act = "c" if $db_name eq "$db1"; # wenn Nutzerdb nur ändern erlauben
$a_actiontext = "Datensatz hinzugefügt...";
$a_actionalert = "alert('Datensatz gespeichert !');";
$a_debug.=".. put (in db $db_name) ausgeführt<br>";
}elsif ($act eq "c" && $dsn ne "")
{ # - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Wenn Daten aus eig. Form mit "feldname=" übergeben werden und
# %_put deshalb nicht da ist; Workaround f. chg, damit DS-Inhalte nicht
# gekillt werden, die erhalten bleiben sollen (Feld bspw. nicht im eigenen Formular)
if (not defined $_put{_amount}) # wenn %_put nicht vorhanden
{
$_put{_amount} = 1; # Wichtigstes Paar f. %_put, damit es aktiv ist und chg undef richtig ausgef. wird
get "Id==!$dsn", "$db_daten", "hole_chgds";
$a_debug.="DS mit Id \$dsn($dsn) aus $db_daten geholt<br>";
get "Id==*", "$db_daten.fields", "edsfelder";
$a_debug.="<font color=red>DS aus \$db_daten($db_daten).fields geholt<br></font>";
while(get_next("edsfelder"))
{
if ($Field ne "Id") # ID nicht mit in \%_put (Ändern) - sonst inkonsistente DB!
{
$_put{$Field} = ${$Field}; #alle Werte ausser ID des DS
$a_debug.="\%_put Key-Wertpaar: (\$_put{$Field} - ${$Field})<br>";
}
if (exists ($_get{$Field}) && $_get{$Field} ne $_put{$Field})
{
$_put{$Field} = $_get{$Field} ; # Inh. ändern wenn in get vorh. und anders
$a_debug.="´Diff. in \%_get geändert: (\$_put{$Field} - $_put{$Field})<br> ";
}
}
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
chg "Id==!$dsn", undef, "$db_daten";
$act = "n";
$a_actiontext = "Datensatz geändert...";
$a_actionalert = "alert('Datensatz geändert !');";
$a_debug.=".. chg (in db $db_name) ausgeführt<br>";
}elsif ($act eq "d" && $dsn ne "")
{
del "Id==!$dsn", "$db_daten";
$act = "n";
$act = "c" if $db_name eq "$db1"; #s.o.
$a_actiontext = "Datensatz gelöscht...";
$a_actionalert = "alert('Datensatz gelöscht !');";
$a_debug.=".. del (in db $db_name) ausgeführt<br>";
}
}
| Liste der Einträge von 39451 bis 39601: | 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 |