baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
} # E forach - check doppelte DS
|
Alle Einträge zum Thema: | Zur Liste |
} # E forach - check doppelte DS
<P>Alle Angaben werden vertraulich behandelt.<BR><BR></P> <perl>out datum("jetzt", "Tag.Monatname.Jahr")<BR><BR>
<P>Alle Angaben werden vertraulich behandelt.<BR><BR></P> <perl>out datum("jetzt", "Tag.Monatname.Jahr"); out "<br><br>";
<html><head><title></title> <style> body { font-family:Arial,Helvetica,sans-serif; background-color:#B00000; font-size:14px; color:#D06000; margin:0;background-image:-; } .Titel { font-size:32px; color:#FFFFFF; } .Text { font-family:Arial,Helvetica,sans-serif; font-size:14px; font-style:normal; color:#FFFFFF; } .Einleitung { font-family:Arial,Helvetica,sans-serif; font-size:14px; font-style:normal; color:#D06000; } .headback { background-color:#D00000; } .databack { background-color:#900000; } .textback { background-color:#700000; } a:link { text-decoration:none; color:#B0B0B0; } a:visited { text-decoration:none; color:#B0B0B0; } a:active { text-decoration:none; color:#FFFFFF; } a:hover { text-decoration:none; color:#FFFFFF; } </style> </head> <body><BR><BR> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TR> <TD class=headback width="100%" colSpan=5 height=20></TD></TR> <TR> <TD class=databack width=40></TD> <TD class=databack width="80%" colSpan=3 height=50></TD> <TD class=databack width=40></TD></TR> <TR> <TD class=textback width=40></TD> <TD class=textback vAlign=top width="40%"> <P><BR><BR><SPAN class=Titel></SPAN><U>Hinweis:</U> Prüfen Sie, ob das von Ihnen bevorzugteThema bereits vergeben ist (vorhandener Eintrag unter 'Alles'). <STRONG>Bei doppelt eingetragenen Themen wird nur der zeitlich frühere Eintrag berücksichtigt.</STRONG> </P> <P>Alle Angaben werden vertraulich behandelt.<BR><BR></P> <perl>out datum("jetzt", "Tag.Monatname.Jahr"); out "<br><br>"; ################################################################# # Hier die Felnamen eintragen, durch Komma getrennt auf die # # geprüft werden soll, es können theoretisch beliebig viele # # Felder eingetragen werden, bedenken sollte man aber, dass # # bei vielen Feldern und vielen Datensätzen, die ggf. auf Dou- # # bletten durchsucht werden sollen u.U. die Scriptlaufzeit # # sich rheblich erhöht - ggf. üerprüfen # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $pruefliste = "Thema"; ################################################################# # hier das Feld eintragen, auf das als erstes Kriterium die # # entsprechenden Datensätze durchsucht werden sollen # # ACHTUNG! Dieses Feld MUSS auf SORTIERUNG stehen! # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $suchfeld = "Thema"; #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# # Datenbankname anpassen, ggf. geht es auch mit dem Parameter # # $db - besser/sicherer ist den Datenbanknamen feste anzugeben # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $db_work = main; # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # Hier beginnt die Funktion zur Doublettensuche # # kann normalerweise so bleiben - muss nix weiter angepasst # # werden # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # if (%_put && $_get{cmd} ne ""){ # wenn was gespeichert oder geändert werden soll @l_chk_doppelt = split /\,/, $pruefliste; my $ds_krit = $_put{$suchfeld}; # hier get "$suchfeld==$ds_krit", $db_work, "doublettensuche"; while(get_next("doublettensuche")){ $cnt_doublettencheck++; $cnt_doppelt = 0; foreach $vergl(@l_chk_doppelt){ # für jedes Feld nachschaun, ob Wert doppelt ist, wenn ja, Zähler erhöhen my $neu_wert = $_put{$vergl}; $cnt_doppelt++ if $neu_wert eq ${$vergl}; # foreach-Schleife verlassen, wenn ein doppelter DS gefunden wurde # (wäre ja sinnlos, dann noch weiter zu suchen...) # doppelter Datensatz liegt vor, wenn alle Felder/Werte aus der # pruefliste doppelte Werte enthalten (wird einfach nur gezählt, # wenn der neue und der vorh. Wert übereinstimmt) - wenn der Zähler # gleich der Anzahl der Elemente der Prüfliste ist, dann liegt ein # doppelter Datensatz vor last if $cnt_doppelt == $#l_chk_doppelt +1 ; }# E foreach - check doppelte DS # while_get_next-Schleife verlassen, wenn ein doppelter DS gefunden wurde # (wäre ja sinnlos, dann noch weitere Datensätze zu durchsuchen...) last if $cnt_doppelt == $#l_chk_doppelt +1; } # E while_get_next # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # if ($cnt_doppelt == $#l_chk_doppelt +1){ $a_dsdoppelt = "Doppelter Datensatz!"; ($a_ort,$a_ot,$a_plz) = split /:/,$l_ort_ot_plz; $a_action = $cmd eq "add" ? "anlegen" : $cmd eq "mod" ? "ändern" : ""; $a_actiontext =<<EOF; <p>Konnte Datensatz nicht $a_action!<br> Daten bereits im Datenbestand</p> <p>[ <a href="javascript:history.back(1)">Zurück</a> ] zur vorherigen Seite</p> EOF undef %_put; $_get{cmd}=""; } else { if($cmd eq "add"){ $a_actiontext = "<p>Datensatz gespeichert...</p>"; put; undef %_put; $_get{cmd}=""; } elsif($cmd eq "mod"){ $a_actiontext = "<p>Datensatz geändert...</p>"; chg; undef %_put; $_get{cmd}=""; } # E if/else DS neu/ändern } # E if/else DS doppelt oder nicht, Aktion auf DS # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # } # E if put+cmd out "$a_actiontext"; # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # # Ende des Script-Teile zur Doublettensuche # # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # <do action=all localparams=+ db=/wigeo_halle/main range^=0,20 sort=Name searchfields=Name listfields=Datum,Thema,Name allfields=Name,Vorname,E-Mail-Adresse,Strasse,PLZ,Wohnort,Studiengang,Telefonnummer,Imma-Nr.,Thema,Datum formfields=Name,Vorname,E-Mail-Adresse,Studiengang,Imma-Nr.,Strasse,PLZ,Wohnort,Telefonnummer,Thema showamount=no selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top convert_br=Thema gridcolor=900000 datasize=2 datacolor=FFFFFF databack=700000 databack2=900000 headcolor=FFFFFF headback=D00000 textcolor=D06000 listtype=list language=de detail=no search=no input=link maxlistlength=60><BR><BR></TD> <TD class=textback width=40></TD></TR> <TR> <TD class=databack width=40></TD> <TD class=databack width="80%" colSpan=3 height=50><SPAN class=Einleitung></SPAN></TD> <TD class=databack width=40></TD></TR> <TR> <TD class=headback width="100%" colSpan=5 height=20></TD></TR></TABLE> <P align=center><SPAN class=Text name="EMail"></SPAN> <CENTER></CENTER></body> </perl> </html>
<html><head><title></title> <style> body { font-family:Arial,Helvetica,sans-serif; background-color:#B00000; font-size:14px; color:#D06000; margin:0;background-image:-; } .Titel { font-size:32px; color:#FFFFFF; } .Text { font-family:Arial,Helvetica,sans-serif; font-size:14px; font-style:normal; color:#FFFFFF; } .Einleitung { font-family:Arial,Helvetica,sans-serif; font-size:14px; font-style:normal; color:#D06000; } .headback { background-color:#D00000; } .databack { background-color:#900000; } .textback { background-color:#700000; } a:link { text-decoration:none; color:#B0B0B0; } a:visited { text-decoration:none; color:#B0B0B0; } a:active { text-decoration:none; color:#FFFFFF; } a:hover { text-decoration:none; color:#FFFFFF; } </style> </head> <body><BR><BR> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TR> <TD class=headback width="100%" colSpan=5 height=20></TD></TR> <TR> <TD class=databack width=40></TD> <TD class=databack width="80%" colSpan=3 height=50></TD> <TD class=databack width=40></TD></TR> <TR> <TD class=textback width=40></TD> <TD class=textback vAlign=top width="40%"> <P><BR><BR><SPAN class=Titel></SPAN><U>Hinweis:</U> Prüfen Sie, ob das von Ihnen bevorzugteThema bereits vergeben ist (vorhandener Eintrag unter 'Alles'). <STRONG>Bei doppelt eingetragenen Themen wird nur der zeitlich frühere Eintrag berücksichtigt.</STRONG> </P> <P>Alle Angaben werden vertraulich behandelt.<BR><BR></P> <perl>out datum("jetzt", "Tag.Monatname.Jahr"); out "<br><br>"; ################################################################# # Hier die Felnamen eintragen, durch Komma getrennt auf die # # geprüft werden soll, es können theoretisch beliebig viele # # Felder eingetragen werden, bedenken sollte man aber, dass # # bei vielen Feldern und vielen Datensätzen, die ggf. auf Dou- # # bletten durchsucht werden sollen u.U. die Scriptlaufzeit # # sich rheblich erhöht - ggf. üerprüfen # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $pruefliste = "Thema"; ################################################################# # hier das Feld eintragen, auf das als erstes Kriterium die # # entsprechenden Datensätze durchsucht werden sollen # # ACHTUNG! Dieses Feld MUSS auf SORTIERUNG stehen! # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $suchfeld = "Thema"; #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# # Datenbankname anpassen, ggf. geht es auch mit dem Parameter # # $db - besser/sicherer ist den Datenbanknamen feste anzugeben # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $db_work = main; # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # Hier beginnt die Funktion zur Doublettensuche # # kann normalerweise so bleiben - muss nix weiter angepasst # # werden # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # if (%_put && $_get{cmd} ne ""){ # wenn was gespeichert oder geändert werden soll @l_chk_doppelt = split /\,/, $pruefliste; my $ds_krit = $_put{$suchfeld}; # hier get "$suchfeld==$ds_krit", $db_work, "doublettensuche"; while(get_next("doublettensuche")){ $cnt_doublettencheck++; $cnt_doppelt = 0; foreach $vergl(@l_chk_doppelt){ # für jedes Feld nachschaun, ob Wert doppelt ist, wenn ja, Zähler erhöhen my $neu_wert = $_put{$vergl}; $cnt_doppelt++ if $neu_wert eq ${$vergl}; # foreach-Schleife verlassen, wenn ein doppelter DS gefunden wurde # (wäre ja sinnlos, dann noch weiter zu suchen...) # doppelter Datensatz liegt vor, wenn alle Felder/Werte aus der # pruefliste doppelte Werte enthalten (wird einfach nur gezählt, # wenn der neue und der vorh. Wert übereinstimmt) - wenn der Zähler # gleich der Anzahl der Elemente der Prüfliste ist, dann liegt ein # doppelter Datensatz vor last if $cnt_doppelt == $#l_chk_doppelt +1 ; }# E foreach - check doppelte DS # while_get_next-Schleife verlassen, wenn ein doppelter DS gefunden wurde # (wäre ja sinnlos, dann noch weitere Datensätze zu durchsuchen...) last if $cnt_doppelt == $#l_chk_doppelt +1; } # E while_get_next # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # if ($cnt_doppelt == $#l_chk_doppelt +1){ $a_dsdoppelt = "Doppelter Datensatz!"; ($a_ort,$a_ot,$a_plz) = split /:/,$l_ort_ot_plz; $a_action = $cmd eq "add" ? "anlegen" : $cmd eq "mod" ? "ändern" : ""; $a_actiontext =<<EOF; <p>Konnte Datensatz nicht $a_action!<br> Daten bereits im Datenbestand</p> <p>[ <a href="javascript:history.back(1)">Zurück</a> ] zur vorherigen Seite</p> EOF undef %_put; $_get{cmd}=""; } else { if($cmd eq "add"){ $a_actiontext = "<p>Datensatz gespeichert...</p>"; put; undef %_put; $_get{cmd}=""; } elsif($cmd eq "mod"){ $a_actiontext = "<p>Datensatz geändert...</p>"; chg; undef %_put; $_get{cmd}=""; } # E if/else DS neu/ändern } # E if/else DS doppelt oder nicht, Aktion auf DS # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # } # E if put+cmd out "$a_actiontext"; # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # # Ende des Script-Teile zur Doublettensuche # # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # <do action=all localparams=+ db=/wigeo_halle/main range^=0,20 sort=Name searchfields=Name listfields=Datum,Thema,Name allfields=Name,Vorname,E-Mail-Adresse,Strasse,PLZ,Wohnort,Studiengang,Telefonnummer,Imma-Nr.,Thema,Datum formfields=Name,Vorname,E-Mail-Adresse,Studiengang,Imma-Nr.,Strasse,PLZ,Wohnort,Telefonnummer,Thema showamount=no selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top convert_br=Thema gridcolor=900000 datasize=2 datacolor=FFFFFF databack=700000 databack2=900000 headcolor=FFFFFF headback=D00000 textcolor=D06000 listtype=list language=de detail=no search=no input=link maxlistlength=60><BR><BR></TD> <TD class=textback width=40></TD></TR> <TR> <TD class=databack width=40></TD> <TD class=databack width="80%" colSpan=3 height=50><SPAN class=Einleitung></SPAN></TD> <TD class=databack width=40></TD></TR> <TR> <TD class=headback width="100%" colSpan=5 height=20></TD></TR></TABLE> <P align=center><SPAN class=Text name="EMail"></SPAN> <CENTER></CENTER></body> </perl> </html>
} # E if/else DS neu/ändern } # E if/else DS doppelt oder nicht, Aktion auf DS # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # } # E if put+cmd out "$a_actiontext"; # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # # Ende des Script-Teile zur Doublettensuche # # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # <do action=all localparams=+ db=/wigeo_halle/main range^=0,20 sort=Name searchfields=Name listfields=Datum,Thema,Name allfields=Name,Vorname,E-Mail-Adresse,Strasse,PLZ,Wohnort,Studiengang,Telefonnummer,Imma-Nr.,Thema,Datum formfields=Name,Vorname,E-Mail-Adresse,Studiengang,Imma-Nr.,Strasse,PLZ,Wohnort,Telefonnummer,Thema showamount=no selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top convert_br=Thema gridcolor=900000 datasize=2 datacolor=FFFFFF databack=700000 databack2=900000 headcolor=FFFFFF headback=D00000 textcolor=D06000 listtype=list language=de detail=no search=no input=link maxlistlength=60><BR><BR></TD> <TD class=textback width=40></TD></TR> <TR> <TD class=databack width=40></TD> <TD class=databack width="80%" colSpan=3 height=50><SPAN class=Einleitung></SPAN></TD> <TD class=databack width=40></TD></TR> <TR> <TD class=headback width="100%" colSpan=5 height=20></TD></TR></TABLE> <P align=center><SPAN class=Text name="EMail"></SPAN> <CENTER></CENTER></body> </perl> </html>
} # E if/else DS neu/ändern } # E if/else DS doppelt oder nicht, Aktion auf DS # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # } # E if put+cmd out "$a_actiontext"; # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # # Ende des Script-Teile zur Doublettensuche # # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #
<do action=all localparams=+ db=/wigeo_halle/main range^=0,20 sort=Name searchfields=Name listfields=Datum,Thema,Name allfields=Name,Vorname,E-Mail-Adresse,Strasse,PLZ,Wohnort,Studiengang,Telefonnummer,Imma-Nr.,Thema,Datum formfields=Name,Vorname,E-Mail-Adresse,Studiengang,Imma-Nr.,Strasse,PLZ,Wohnort,Telefonnummer,Thema showamount=no selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top convert_br=Thema gridcolor=900000 datasize=2 datacolor=FFFFFF databack=700000 databack2=900000 headcolor=FFFFFF headback=D00000 textcolor=D06000 listtype=list language=de detail=no search=no input=link maxlistlength=60><BR><BR></TD> <TD class=textback width=40></TD></TR> <TR> <TD class=databack width=40></TD> <TD class=databack width="80%" colSpan=3 height=50><SPAN class=Einleitung></SPAN></TD> <TD class=databack width=40></TD></TR> <TR> <TD class=headback width="100%" colSpan=5 height=20></TD></TR></TABLE> <P align=center><SPAN class=Text name="EMail"></SPAN> <CENTER></CENTER></body> </html>
Liste der ersten 150 Einträge: | Einklappen | Zur Eingabe |
Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |