| 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 |
<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>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<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 bevorzugte Thema 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")</perl><BR><BR>
<do Thema action=all localparams=+ db=/wigeo_halle/main range^=0,20 sort=Name searchfields=Name listfields=Datum,Bevorzugtes\ Thema,Name allfields=Name,Vorname,E-Mail-Adresse,Strasse,PLZ,Wohnort,Studiengang,Telefonnummer,Imma-Nr.,Bevorzugtes\ Thema,Datum formfields=Name,Vorname,E-Mail-Adresse,Studiengang,Imma-Nr.,Strasse,PLZ,Wohnort,Telefonnummer,Bevorzugtes\ Thema showamount=no selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top convert_br=Bevorzugtes\ 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>
#################################################################
# 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 = "Bevorzugtes 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 = "Bevorzugtes 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 forach - 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 #
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #
</perl>
| Alle Einträge zum Thema: | Zur Liste |
<Bitte bei Problemen einen Link auf die entsprechende Seite und den Teil des betreffenden Quellcodes (das Eingabefeld beim "Aussehen" der Seite) angeben, sowie eine konkrete Beschreibung was erreicht werden soll und was dabei nicht funktioniert. Das erleichtert die Hilfe sehr ;-)>
<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>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<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 bevorzugte Thema 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")</perl><BR><BR>
<do Thema action=all localparams=+ db=/wigeo_halle/main range^=0,20 sort=Name searchfields=Name listfields=Datum,Bevorzugtes\ Thema,Name allfields=Name,Vorname,E-Mail-Adresse,Strasse,PLZ,Wohnort,Studiengang,Telefonnummer,Imma-Nr.,Bevorzugtes\ Thema,Datum formfields=Name,Vorname,E-Mail-Adresse,Studiengang,Imma-Nr.,Strasse,PLZ,Wohnort,Telefonnummer,Bevorzugtes\ Thema showamount=no selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top convert_br=Bevorzugtes\ 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>
#################################################################
# 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 = "Bevorzugtes 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 = "Bevorzugtes 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 forach - 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 #
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #
</perl>
$suchfeld = "Bevorzugtes Thema";
| Liste der Einträge von 23400 bis 23550: | 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 |