nur noch ein Problem... - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von Ramona (111 Beiträge) am Dienstag, 14.Mai.2002, 18:36.
    nur noch ein Problem...

      jetzt trägt er alles doppelt ein.

      Trotzdem danke, aber vielleicht gibt es da noch einen Trick?


    Antwortformular einklappen

    Name: EMail: EMail bei Antwort? WWW:
    Titel:
    Text:

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Ramona (111 Beiträge) am Dienstag, 14.Mai.2002, 15:01.
    Bitte helft mir :(

      Möchte Formularangaben (Email, Nickname, Passwort eingegeben) und gleichzeitig auf doppelte Einträge (Nickname) überprüfen.

      Hab jetzt einiges aus dem Forum ausprobiert, einzeln funktioniert es, aber wie kann ich die folgenden 2 Perl-Befehle miteinander verbinden?


      <perl>
 

      my $emsg="";



      if(%_put)
{

      $emsg.="Bitte geben Sie einen Nicknamen ein!<br> " if $_put{Nickname} eq "";
      $emsg.="Bitte geben Sie ein Password ein!<br> " if $_put{Passwort} eq "";
 
$emsg.="Bitte geben Sie Ihre Email-Adresse ein!<br> " if $_put{Email} eq "";

        if($emsg eq "")
  {
    put;
    out "Ihre Registrierung war erfolgreich!";
  } else
  {
    out "$emsg";
  }
}
 


      "";


      </perl>

      <perl>
       



      if(%_put)
{
get "Nickname==$_put{Nickname}", "nutzer";
if ($_amount>0 && $Nickname eq $_put{Nickname}) {

      out "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
       
      Bitte wählen Sie einen neuen Namen!<br>";
        undef %_put;
 }
}

      </perl>
       



      <do action=input db=nutzer>
<do action=list listtype=add db=nutzer showamount=no selectbrowse=no buttonbrowse=no pagebrowse=no>
 


      Wenn ich einen neuen Nicknamen (der noch nicht vorhanden ist) eingebe, sagt er zwar bitte Passwort und Email eingeben, allerdings fügt er den Eintrag trotzdem hinzu.

      Und wie kann ich festlegen, dass Passwort und Nickname jeweils mind. 4 Zeichen haben müssen?

      Für Hilfe wäre ich wirklich dankbar !!!

     Antworten

    Beitrag von Syno (13 Beiträge) am Dienstag, 14.Mai.2002, 15:34. EMail: olli@synovatec.de
    Re: Bitte helft mir :(

      1. Problem:
      undef %_put muß erfolgen wenn die Überprüfung von $emsg ergibt, dass es nicht leer ist. Ansonsten fügt er es logischer weise der Datenbank hinzu.


      if($emsg eq "")
  {
    put;
    out "Ihre Registrierung war erfolgreich!";
  } else
  {
    out "$emsg";
    undef %_put;
  }





      2. Problem:(Länge Zeichen = 4)

      if(%_put)
{
 get "Nickname==$_put{Nickname}", "nutzer";
 if ($_amount>0 && $Nickname eq $_put{Nickname}) 
 {
  out "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
   Bitte wählen Sie einen neuen Namen!<br>";
  undef %_put;
 }
 
 if (length($Nickname < 4))
 {
  out "<b>Der Nickname muß min. 4 Zeichen lang sein!<b><br>
   Bitte wählen Sie einen längeren Namen!<br>";
  undef %_put;
 }
 
 #----Ich unterstelle mal, das die Passwort Variable $passwort heißt, ansosnten entsprechend anpassen------
 if (length($passwort < 4))
 {
  out "<b>Das Passwort muß min. 4 Zeichen lang sein!<b><br>
   Bitte wählen Sie eine längeres Passwort!<br>";
  undef %_put;
 }
 
 }
 
 
 
 Ich hoffe es ist das was Du gesucht hast
 
 Syno

     Antworten

    Beitrag von Ramona (111 Beiträge) am Dienstag, 14.Mai.2002, 16:36.
    Re: Bitte helft mir :(

      Erstmal danke für die schnelle Antwort. Zwar kann ich die richtigen Feldnamen einfügen, nur leider verstehe ich die Programmierung überhaupt nicht.
      Hab es jetzt so untereinander geschrieben, funktioniert aber nicht. Muss jetzt 2x <perl> erfolgen oder nur 1x? Was habe ich noch falsch gemacht?


      <perl>

      my $emsg="";

      if(%_put)
{
 
$emsg.="Bitte geben Sie einen Nicknamen ein!<br> " if $_put{Nickname} eq "";
$emsg.="Bitte geben Sie ein Password ein!<br> " if $_put{Passwort} eq "";
  $emsg.="Bitte geben Sie Ihre Email-Adresse ein!<br> " if $_put{Email} eq "";

        if($emsg eq "")
  {
    put;
    out "Ihre Registrierung war erfolgreich!";
  } else
  {
    out "$emsg";
          undef %_put;
        }

      }
       
      "";

      </perl>

      <perl>

      if(%_put)
{
get "Nickname==$_put{Nickname}", "nutzer";
if ($_amount>0 && $Nickname eq $_put{Nickname}) {
 
out "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
Bitte wählen Sie einen neuen Namen!<br>";
  undef %_put;
 }

      if (length($Nickname < 4))
       {
  out "<b>Der Nickname muß min. 4 Zeichen lang sein!<b><br>
   Bitte wählen Sie einen längeren Namen!<br>";
  undef %_put;
 }
 
 
if (length($passwort < 4))
 {
  out "<b>Das Passwort muß min. 4 Zeichen lang sein!<b><br>
   Bitte wählen Sie eine längeres Passwort!<br>";
  undef %_put;
 }
 
 }
 
</perl>

     Antworten

    Beitrag von Syno (13 Beiträge) am Dienstag, 14.Mai.2002, 17:30. EMail: olli@synovatec.de
    Re: Bitte helft mir :(

      Also hier mal der gesamte Code, von mir mal ein wenig angepasst. Funzt bei mir.

      Es ist übrigens sehr wichtig, dass alle Datenbankfelder und Formular Felder gleichlautend sind, vor allem in Groß- und Kleinschreibung.
      "passwort" ist nicht gleich "Passwort"





      <perl>
 
my $emsg="";
if(%_put)
{

       $emsg.="Bitte geben Sie einen Nicknamen ein!<br> " if $_put{Nickname} eq "";
 $emsg.="Bitte geben Sie ein Password ein!<br> " if $_put{Passwort} eq "";
 $emsg.="Bitte geben Sie Ihre Email-Adresse ein!<br> " if $_put{Email} eq "";
 get "Nickname==$_put{Nickname}", "nutzer";
 if ($_amount>0 && $Nickname eq $_put{Nickname}) 
 {
  $emsg.= "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
    Bitte wählen Sie einen neuen Namen!<br>";
  }

       if (length($_put{Nickname}) < 4)
 {
  $emsg.="<b>Der Nickname muß min. 4 Zeichen lang sein!<b><br>
           Bitte wählen Sie einen längeren Namen!<br>";
        }
 
 if (length($_put{Passwort}) < 4)
 {
  $emsg.= "<b>Das Passwort muß min. 4 Zeichen lang sein!<b><br>
     Bitte wählen Sie eine längeres Passwort!<br>";
   
  }
  
  if($emsg eq "")
  {
     put;
     out "Ihre Registrierung war erfolgreich!";
  } 
  else
  {
     out "$emsg";
     undef %_put;
  }
 
 }
 
</perl> 
<do action=input db=nutzer>
<do action=list listtype=add db=nutzer showamount=no selectbrowse=no buttonbrowse=no pagebrowse=no>

     Antworten

    Beitrag von Ramona (111 Beiträge) am Dienstag, 14.Mai.2002, 18:05.
    nur noch ein Problem...

      jetzt trägt er alles doppelt ein.

      Trotzdem danke, aber vielleicht gibt es da noch einen Trick?

     Antworten

    Beitrag von Syno (13 Beiträge) am Dienstag, 14.Mai.2002, 18:14. EMail: olli@synovatec.de
    Re: nur noch ein Problem...

      Doppelt? Seltsam ... bei mir nicht...ich schau mal...

      *g* Ich Depp!!

      Bitte entferne die Zeile:
      <do action=input db=nutzer>

      Dann klappt es auch mit dem Nachbarn ;-)

      Ich hoffe jetzt ist es ok.

      Syno

     Antworten

    Beitrag von Ramona (111 Beiträge) am Dienstag, 14.Mai.2002, 18:39.
    Danke :)

      Klappt jetzt super!

      Schönen Abend noch!

     Antworten

    Beitrag von Ramona (111 Beiträge) am Dienstag, 14.Mai.2002, 18:36.
    nur noch ein Problem...

      jetzt trägt er alles doppelt ein.

      Trotzdem danke, aber vielleicht gibt es da noch einen Trick?

     Antworten


     
 Liste der Einträge von 47251 bis 47401: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

Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.10s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!