Frage an Christoph - 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 Georg (11 Beiträge) am Freitag, 14.September.2001, 11:30.
    Frage an Christoph

      Habe eine Eingabe mit inidvidueller Korrekturmöglichkeit mit Passwort entwickelt. das funktioniert alles wunderbar. Ich hätte gerne die "Liste aller Einträge" (am Ende des Skripts) nach Namen sortiert.

      Hier mein Skript

      <html><head>
<title>Passwortgeschützte Datenbank</title>
</head><body bgcolor=ffffff>
<br><ul>

      <perl>

      put if %_put;

      if($Id ne "")
      {
  get "Id==$Id";

        if($xName)
  {
    if($Passwort eq $xPasswort)
    {
      mod "Id==$Id", ["Name",$xName,"Matrikelnummer",$xMatrikelnummer,"Veranstaltung",$xVeranstaltung];
      out "<b>Eintrag geändert...</b>";
    } else
    {
      out "<b>Passwort falsch!</b>";
    }
  } else
  {
    out <<EOF;
<h3>Eintrag ändern</h3>
<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr><td>Name:</td><td><input type="text" name="xName=" value="$Name"></td></tr>
<tr><td>Matrikelnummer:</td><td><input type="text" name="xMatrikelnummer=" value="$Matrikelnummer"></td></tr>
<tr><td>Veranstaltung:</td><td><input type="text" name="xVeranstaltung=" value="$Veranstaltung"></td></tr>

      <tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
      <tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF

        }
  out "<p><a href=\"$_link\">Neuer Eintrag</a>";

      } else
      {
  out "<h3>Neuer Eintrag</h3>";
  out "Wählen Sie bitte ein beliebiges, aber gut merkbares persönliches Passwort. Mit diesem Passwort können Sie ihre Einträge später bearbeiten.";

        init; get;
  list "add";
      }

      get;

      out "<h3>Liste aller Einträge</h3>";
      out "<h4>Wenn Sie Ihre Einträge korrigieren wollen, müssen Sie nur auf Ihren Namen klicken!</h4>";
out "<table><tr><td>Name</td><td>Veranstaltung</td></tr>";
while(get_next)
{
  out "<tr><td><a href=\"$_link&Id=$_id\">$Name<sort=$_id> </a></td><td>$Veranstaltung</td></tr>";
}
out "</table>";
</perl>

      </body></html>


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Georg (11 Beiträge) am Freitag, 14.September.2001, 11:30.
    Frage an Christoph

      Habe eine Eingabe mit inidvidueller Korrekturmöglichkeit mit Passwort entwickelt. das funktioniert alles wunderbar. Ich hätte gerne die "Liste aller Einträge" (am Ende des Skripts) nach Namen sortiert.

      Hier mein Skript

      <html><head>
<title>Passwortgeschützte Datenbank</title>
</head><body bgcolor=ffffff>
<br><ul>

      <perl>

      put if %_put;

      if($Id ne "")
      {
  get "Id==$Id";

        if($xName)
  {
    if($Passwort eq $xPasswort)
    {
      mod "Id==$Id", ["Name",$xName,"Matrikelnummer",$xMatrikelnummer,"Veranstaltung",$xVeranstaltung];
      out "<b>Eintrag geändert...</b>";
    } else
    {
      out "<b>Passwort falsch!</b>";
    }
  } else
  {
    out <<EOF;
<h3>Eintrag ändern</h3>
<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr><td>Name:</td><td><input type="text" name="xName=" value="$Name"></td></tr>
<tr><td>Matrikelnummer:</td><td><input type="text" name="xMatrikelnummer=" value="$Matrikelnummer"></td></tr>
<tr><td>Veranstaltung:</td><td><input type="text" name="xVeranstaltung=" value="$Veranstaltung"></td></tr>

      <tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
      <tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF

        }
  out "<p><a href=\"$_link\">Neuer Eintrag</a>";

      } else
      {
  out "<h3>Neuer Eintrag</h3>";
  out "Wählen Sie bitte ein beliebiges, aber gut merkbares persönliches Passwort. Mit diesem Passwort können Sie ihre Einträge später bearbeiten.";

        init; get;
  list "add";
      }

      get;

      out "<h3>Liste aller Einträge</h3>";
      out "<h4>Wenn Sie Ihre Einträge korrigieren wollen, müssen Sie nur auf Ihren Namen klicken!</h4>";
out "<table><tr><td>Name</td><td>Veranstaltung</td></tr>";
while(get_next)
{
  out "<tr><td><a href=\"$_link&Id=$_id\">$Name<sort=$_id> </a></td><td>$Veranstaltung</td></tr>";
}
out "</table>";
</perl>

      </body></html>

     Antworten

    Beitrag von Christoph Bergmann (8110 Beiträge) am Freitag, 14.September.2001, 14:35.
    Re: Frage an Christoph - das können andere auch, viell. mit weniger Fehlern ;-)

      Du musst einfach statt dem letzten "get" ein

      get "Name==*";

      schreiben. Dazu muss aber das Feld "Name" auch als "sortiert" definiert sein (müsste es eigentlich, wenn nicht, musst Du das als Text sortieren).

     Antworten


     
 Liste der Einträge von 57000 bis 57150: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.06s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!