- baseportal Dokumentation

Titel:

<h5>Universeller Script-Teil zur Vermeidung von Doppelten Datensätzen</h5>

Oftmals kommt es vor, dass man verhindern möchte, dass Daten redundant (doppelt/mehrfach) in eine Datenbank eingetragen werden.

Dazu ist es notwendig, Kriterien festzulegen, die einen doppelten Datensatz charakterisieren und dann nach diesen abzufragen.

Wenn diese Kriterien zutreffen (also der Datensatz doppelt wäre, wenn er gespeichert wird), wird eine Fehlermeldung ausgegeben und das Speichern wird verhindert. <ul> Das kann man sehr effektiv mit dem folgenden Script-Schnipsel erreichen, die Anpassung ist denkbar einfach, man kann es einfach in seine eigenen Templates einkopieren, auch ohne zu verstehen, was das Script so genau macht (Kommentare sind trotzdem drin, schließlich wird man ja nicht dümmer, wenn man versucht zu verstehen...

Ein "kleines" Problem stellt dar, dass bei Ändern von vorhandenen Datensätzen die Änderung verhindert wird, wenn die Daten in den Feldern, die einen doppelten Datensatz charakterisieren, nichts geändert wird.
Man kann dies umgehen, indem man die Daten in einem dieser Felder mit ändert und unmittelbar nach Absenden den gleichen Datensatz nochmal bearbeitet um in das zuvor "fälschlicherweise" geänderte Feld den richtigen Wert wieder einzutragen. </ul> <table cellpadding="10" width="90%"> <tr> <td bgcolor="#f0f0f0"><code>
 
<perl> 
#################################################################
# BASEPORTAL-PERLSCRIPT #
# #
# copyright 2006 by R. Hempel - Computer-Netzwerk-Internet #
# Dieses Script ist Freie Software, Sie dürfen es beliebig #
# verwenden und/oder verändern nach den Maßgaben und Regelungen #
# der GNU GPL, veröffentlicht von der Free Software Foundation #
# in Version 2 und allen späteren Versionen. Eine Version der #
# Lizenz in einer Übertragung ins Deutsche ist unter #
# http://www.gnu.de/gpl-ger.html einsehbar. #
# #
# Die Entfernung diess Copyrighthinweises ist untersagt. #
# Weiterverwendung des Scriptes nur in GPL-Projekten. #
# #
# !!!Es gilt der Grundsatz: Einmal GPL - Immer GPL!!! #
# #
#################################################################
################################################################# # Hier die Felnamen eintragen, durch Komma getrennt auf die # # gepr&uuml;ft werden soll, es k&ouml;nnen theoretisch beliebig viele # # Felder eingetragen werden, bedenken sollte man aber, dass # # bei vielen Feldern und vielen Datens&auml;tzen, die ggf. auf Dou- # # bletten durchsucht werden sollen u.U. die Scriptlaufzeit # # sich rheblich erh&ouml;ht - ggf. &uuml;erpr&uuml;fen # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $pruefliste = "feld1,feld2,feld3,feld4"; ################################################################# # hier das Feld eintragen, auf das als erstes Kriterium die # # entsprechenden Datens&auml;tze durchsucht werden sollen # # ACHTUNG! Dieses Feld MUSS auf SORTIERUNG stehen! # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $suchfeld = "dassollnichtdoppeltsein"; #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# # Datenbankname anpassen, ggf. geht es auch mit dem Parameter # # $db - besser/sicherer ist den Datenbanknamen feste anzugeben # #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .# $db_work = $db; # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # 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&auml;ndert werden soll &nbsp;&nbsp;&nbsp;@l_chk_doppelt = split /\,/, $pruefliste; &nbsp;&nbsp;&nbsp;my $ds_krit = $_put{$suchfeld}; # hier &nbsp;&nbsp;&nbsp;get "$suchfeld==$ds_krit", $db_work, "doublettensuche"; &nbsp;&nbsp;&nbsp;while(get_next("doublettensuche")){ &nbsp;&nbsp;&nbsp; $cnt_doublettencheck++; &nbsp;&nbsp;&nbsp; $cnt_doppelt = 0; &nbsp;&nbsp;&nbsp; foreach $vergl(@l_chk_doppelt){ # f&uuml;r jedes Feld nachschaun, ob Wert doppelt ist, wenn ja, Z&auml;hler erh&ouml;hen &nbsp;&nbsp;&nbsp; my $neu_wert = $_put{$vergl}; &nbsp;&nbsp;&nbsp; $cnt_doppelt++ if $neu_wert eq ${$vergl}; # foreach-Schleife verlassen, wenn ein doppelter DS gefunden wurde # (w&auml;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&auml;hlt, # wenn der neue und der vorh. Wert &uuml;bereinstimmt) - wenn der Z&auml;hler # gleich der Anzahl der Elemente der Pr&uuml;fliste ist, dann liegt ein # doppelter Datensatz vor &nbsp;&nbsp;&nbsp; last if $cnt_doppelt == $#l_chk_doppelt +1; &nbsp;&nbsp;&nbsp; } # E forach - check doppelte DS &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;# while_get_next-Schleife verlassen, wenn ein doppelter DS gefunden wurde # (w&auml;re ja sinnlos, dann noch weitere Datens&auml;tze zu durchsuchen...) &nbsp;&nbsp;&nbsp; last if $cnt_doppelt == $#l_chk_doppelt +1; &nbsp;&nbsp;&nbsp;} # E while_get_next &nbsp;&nbsp;&nbsp;# + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # 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" ? "&auml;ndern" : ""; $a_actiontext =<<EOF; Konnte Datensatz nicht $a_action! Daten bereits im Datenbestand [ <a href="javascript:history.back(1)">Zur&uuml;ck</a> ] zur vorherigen Seite EOF &nbsp;&nbsp;&nbsp;undef %_put; $_get{cmd}=""; } else { &nbsp;&nbsp;&nbsp; if($cmd eq "add"){ $a_actiontext = "Datensatz gespeichert..."; &nbsp;&nbsp;&nbsp; put; undef %_put; $_get{cmd}=""; &nbsp;&nbsp;&nbsp; } elsif($cmd eq "mod"){ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$a_actiontext = "Datensatz ge&auml;ndert..."; &nbsp;&nbsp;&nbsp; chg; undef %_put; $_get{cmd}=""; } # E if/else DS neu/&auml;ndern &nbsp;&nbsp;&nbsp;} # E if/else DS doppelt oder nicht, Aktion auf DS # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + # } # E if put+cmd out "$a_actiontext"; # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # # Ende des Script-Teile zur Doublettensuche # # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # 
</perl> 
 
</code> </td></tr> </table>

Ansicht, wie das ganze funktioniert unter:
 [&nbsp;<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/hempelr/bib_doubletten/nodoppelt" target=_blank>Test-Seite</a>&nbsp;]

Gesamt-Quelltext-Ansicht des Test-Templates:
 [&nbsp;<a href="http://baseportal.de/cgi-bin/baseportal.pl?show=/hempelr/bib_doubletten/nodoppelt" target=_blank>Quelltext-Ansicht</a>&nbsp;]

Name: Passwort: Stichworte: Version: 1 2 3 Angebot:

Ohne Änderungen zurück zur Seite

Neue Seite erstellen