baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
# 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>"; } }
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 39450 bis 39600: | 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 |