Re: Opionsschaltflächen für die Ausgabe - 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 Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 21:40.
    Re: Opionsschaltflächen für die Ausgabe

      Hallo Sander,

      es doch doch noch ein Fehler.
      Es geht nur eine Seite, ab der 2'ten
      geht es leider nicht.
      Und ich weis wirklich nicht wo der Haken ist.
      Hier der aktuelle Quelltext:
      <html>
      <head>
      <title>Ausgabe mit oder ohne Bilder</title>
      <link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
      </head>
      <body>
      <perl>
      if($mode eq "pictures") {
      

      out <<EOF;
      <p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
      EOF
      }
         if($mode eq "nopictures") {
      out <<EOF;
          <p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
      EOF
      }
      </perl>
      

      <table border="2" width="100%" cellpadding="2" cellspacing="1">
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF
      }
      if($mode eq "nopictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF
      }
      </perl>
      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
            $append = $append."&Land~=$Land" if $Land ne "";
            $append = $append."&Stadt~=$Stadt" if $Stadt ne "";
            $append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
            $append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
            $append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
           </perl>
      <loop code=perl db=brueckenbau>
      out "";
      </loop>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      

      <loop db=brueckenbau code=perl>
       
      if($mode eq "nopictures") {
      out <<EOF;
      

      <tr align="center">

      <td align=left>
      <span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></span>
      </td>
      <td align=left>
      <span class=mengentext>$SeitenEigentuemer</span>
      </td>
      <td align=left>
      <span class=mengentext>$Stadt</span>
      </td>
      <td align=left>
      <span class=mengentext>$Land</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegOben</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegUnten</span>
      </td>
      </tr>
       
      EOF
      }
          if($mode eq "pictures") {
           out <<EOF;
      <tr>
      <td>
      <a href="$BildLink"><img src="$BildvorschauLink" alt="$Brueckenname" border="0"></a>
      </td>
      <td valign="top">
      <strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></font></strong>, $Stadt, $Land, <p>$Beschreibung</p>
      </td>
      </tr>
      <tr>
      <td width="100%" colspan="2">
      <hr noshade size="3" color="#008080">
      </td>
      </tr>
       
      EOF
      }
         </loop>
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF
      }
           if($mode eq "nopictures") {
      

      out <<EOF;
            <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF
      }
      </perl>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      </table>
      <div align="center">
      <perl>
      out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
      </perl>
      <include src=hinweis>
      </div>
      </body>
      </html>
       
      

      Bis demnächst.


    Ihre Antwort:

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

    Neuer Eintrag


 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Michael Koch (344 Beiträge) am Montag, 23.April.2001, 22:35.
    Opionsschaltflächen für die Ausgabe

      Hallo,

      ich glaube sander du würdes auch da hin kriegen.
      Ich habe für meine Datenbank 3 verschidene ausgabeseiten.
      Ist es mit opionsschaltflächen möglich, dass der Datenbankbesucher auf der Such Seite selber entscheiden kann, wie die Ausgabe sein soll ?
      Hier der Quelltext der Such seite:
      <html>
      

      <head>
      <title>Hier kann gezielt nach Brücken gesucht werden</title>
      

      </head>
      <LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
      <body>
      <div align="center"><center>
      
       <form
        action="baseportal.pl?htx=/brueckenbau/blaettern&amp;cmd=search&amp;range=0,10"
        method="post" 
        enctype="multipart/form-data">
       <input type=hidden name="htx=" value="/brueckenbau/blaettern">
       <input type=hidden name="cmd=" value="search">
      

      <table border="0" width="600" cellspacing="0" cellpadding="0">
        <tr>
          <td width="100%" colspan="2"><h2>Hier kann gezielt nach Brücken gesucht werden.</h2>
          </td>
        </tr>
        <tr>
          <td colspan="2"></td>
        </tr>
        <tr>
          <td align="right" width="200">Brückenname :&nbsp; </td>
          <td width="400"><input type="text" name="Brueckenname~=" size=40 value=""></td>
        </tr>
        <tr>
          <td align="right" width="200">Land :&nbsp; </td>
          <td width="400"><input type="text" name="Land~=" size=40 value=""></td>
        </tr>
        <tr>
          <td align="right" width="200">Stadt :&nbsp; </td>
          <td width="400"><input type="text" name="Stadt~=" size=40 value=""></td>
        </tr>
        <tr>
          <td align="right" width="200">Verkehrsweg oben :&nbsp; </td>
          <td width="400"><input type="text" name="VerkehrswegOben~=" size=40 value=""></td>
        </tr>
        <tr>
          <td align="right" width="200">Verkehrsweg unten :&nbsp; </td>
          <td width="400"><input type="text" name="VerkehrswegUnten~=" size=40 value=""></td>
        </tr>
        <tr>
          <td align="right" width="200">Seiten Eigentümer :&nbsp; </td>
          <td width="400"><input type="text" name="SeitenEigentuemer~=" size=40 value=""></td>
        </tr>
        <tr>
          <td align="right" width="200">&nbsp; </td>
          <td width="400">&nbsp; </td>
        </tr>
        <tr>
          <td align="right" width="200">Freitext Suche :&nbsp; </td>
          <td width="400">demnächst</td>
        </tr>
        <tr>
          <td align="right" width="200">&nbsp; </td>
          <td width="400">&nbsp; </td>
        </tr>
        <tr>
          <td align="center" width="600" colspan="2">  <input type=submit value="Suchen">
        <input type=reset value="Zurücksetzen"> </td>
        </tr>
      </table>
      </form>
      </center></div>
      

      <p align="center">&nbsp;</p>
      <p>
      <include src=hinweis>
      </body>
      </html>
      

      Bis Bald

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 23.April.2001, 22:52.
    Re: Opionsschaltflächen für die Ausgabe

      dann müssen alle Seiten in einem Template liegen. Dann geht das.
      Das Template müsste komplett aus Perl bestehen und je nach gecheckter Box eine andere Variante aufrufen.
      <perl>
      if ($show = 1)
      {
      
      gebe es so aus...
      }elsif ($show = 2)
      {
      
      gebe es so aus
      }elsif ($show = 3)
      {
      
      gib halt so aus
      }
      </perl>
      

      so wäre es schematisch.

      Dann müsstest du in das Suchform checkboxen einbauen
      <input type=checkbox name="show=" value="1"> daselbe mit 2 u 3.
      

      viel spaß beim basteln

      Sander

     Antworten

    Beitrag von Stefan Krupop (311 Beiträge) am Montag, 23.April.2001, 22:53.
    Re: Opionsschaltflächen für die Ausgabe

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 10:32.
    Re: Opionsschaltflächen für die Ausgabe

     Antworten

    Beitrag von Sander (8133 Beiträge) am Dienstag, 24.April.2001, 17:43.
    Re: Opionsschaltflächen für die Ausgabe

      wenn du was in perl ausgeben willst, mußt du das html in
      out <<EOF;
      
      ...
      EOF
      setzen. soll ein Perlbefehl (if...)rein, mußt du mit EOF abrechen, und danach wieder mit out <<EOF; anfangen.

      So, jetzt probier mal

      Sander

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 18:30.
    Re: Opionsschaltflächen für die Ausgabe

      Hallo,

      hab ich gemacht.
      leider ohne positiven Erfolg.
      Hier der geänderte Quelltext:
      <html>
      <head>
      <title>Ausgabe mit oder ohne Bilder</title>
      <link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
      </head>
      <body>
      <perl>
      if($mode eq "pictures") {
      

      out <<EOF;
      <p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
      EOF 
      }
         if($mode eq "nopictures") {
      out <<EOF;
          <p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
      EOF 
      }
      </perl>
      <table border="2" width="100%" cellpadding="2" cellspacing="1">
      <tr>
      <perl>
      if($mode eq "pictures") {
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      }
      if($mode eq "nopictures") {
      <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      }
      </perl>
      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
            $append = $append."&Land~=$Land" if $Land ne "";
            $append = $append."&Stadt~=$Stadt" if $Stadt ne "";
            $append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
            $append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
            $append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
           </perl>
      <loop code=perl db=brueckenbau range=0,1>
      out "";
      </loop>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      <loop db=brueckenbau code=perl>
       
      if($mode eq "nopictures") {
      out <<EOF;
            <tr align="center">
      <td align=left>
      <span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></span>
      </td>
      <td align=left>
      <span class=mengentext>$SeitenEigentuemer</span>
      </td>
      <td align=left>
      <span class=mengentext>$Stadt</span>
      </td>
      <td align=left>
      <span class=mengentext>$Land</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegOben</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegUnten</span>
      </td>
      </tr>
       
      EOF
      }
          if($mode eq "pictures") {
           out <<EOF;
            <tr>
      <td>
      <a href="$BildLink"><img src="$BildvorschauLink" alt="$Brueckenname" border="0"></a>
      </td>
      <td valign="top">
      <strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></font></strong>, $Stadt, $Land, <p>$Beschreibung</p>
      </td>
      </tr>
      <tr>
      <td width="100%" colspan="2">
      <hr noshade size="3" color="#008080">
      </td>
      </tr>
       
      EOF
      }
         </loop>
      <tr>
      <perl>
      if($mode eq "pictures") {
      

      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
       
      }
           if($mode eq "nopictures") {
            <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      }
      </perl>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      </table>
      <div align="center">
      <perl>
      out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
      </perl>
      <include src=hinweis>
      </div>
      </body>
      </html>
       
      
      bis bald

     Antworten

    Beitrag von Sander (8133 Beiträge) am Dienstag, 24.April.2001, 18:54.
    Re: Opionsschaltflächen für die Ausgabe

      hier fehlts noch:
      <perl>
      if($mode eq "pictures") {
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      }
      if($mode eq "nopictures") {
      <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      }
      </perl>
      

       und hier:

      <perl>
      if($mode eq "pictures") {
      

      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
       



      }
       
      if($mode eq "nopictures") {
            <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      }
      </perl>
       
      

      Sander

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 19:45.
    Re: Opionsschaltflächen für die Ausgabe

      Hallo Sander,

      auch das habe ich gemacht.
      Ergebnis Fehler Fehler Fehler
      Hier der Link:
      http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/suchauswahl
      und der jetzige Quelltext:
      <html>
      <head>
      <title>Ausgabe mit oder ohne Bilder</title>
      <link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
      </head>
      <body>
      <perl>
      if($mode eq "pictures") {
      

      out <<EOF;
      <p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
      EOF 
      }
         if($mode eq "nopictures") {
      out <<EOF;
          <p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
      EOF 
      }
      </perl>
      <table border="2" width="100%" cellpadding="2" cellspacing="1">
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF 
      }
      if($mode eq "nopictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF 
      }
      </perl>
      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
            $append = $append."&Land~=$Land" if $Land ne "";
            $append = $append."&Stadt~=$Stadt" if $Stadt ne "";
            $append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
            $append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
            $append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
           </perl>
      <loop code=perl db=brueckenbau range=0,1>
      out "";
      </loop>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      <loop db=brueckenbau code=perl>
       
      if($mode eq "nopictures") {
      out <<EOF;
            <tr align="center">
      <td align=left>
      <span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></span>
      </td>
      <td align=left>
      <span class=mengentext>$SeitenEigentuemer</span>
      </td>
      <td align=left>
      <span class=mengentext>$Stadt</span>
      </td>
      <td align=left>
      <span class=mengentext>$Land</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegOben</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegUnten</span>
      </td>
      </tr>
       
      EOF
      }
          if($mode eq "pictures") {
           out <<EOF;
            <tr>
      <td>
      <a href="$BildLink"><img src="$BildvorschauLink" alt="$Brueckenname" border="0"></a>
      </td>
      <td valign="top">
      <strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></font></strong>, $Stadt, $Land, <p>$Beschreibung</p>
      </td>
      </tr>
      <tr>
      <td width="100%" colspan="2">
      <hr noshade size="3" color="#008080">
      </td>
      </tr>
       
      EOF
      }
         </loop>
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF  
      }
           if($mode eq "nopictures") {
      

      out <<EOF;
            <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF  
      }
      </perl>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      </table>
      <div align="center">
      <perl>
      out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
      </perl>
      <include src=hinweis>
      </div>
      </body>
      </html>
       
      
      Bis gleich

     Antworten

    Beitrag von Sander (8133 Beiträge) am Dienstag, 24.April.2001, 19:55.
    Re: Opionsschaltflächen für die Ausgabe

      mir scheint der code ok zu sein, überprüfe mal, ob wirklich kein Zeichen hinter dem EOF steht, nicht mal ein leerzeichen.

      Sander

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 20:19.
    Re: Opionsschaltflächen für die Ausgabe

      Hallo,

      es waren leerzeichen hinter .
      Jetzt kommen keine Fehlermeldungen
      ABER auch kein Ergebnis.

      Schau doch noch mal.

      bis gleich.

     Antworten

    Beitrag von Sander (8133 Beiträge) am Dienstag, 24.April.2001, 20:25.
    Re: Opionsschaltflächen für die Ausgabe

      jetzt hab ich dir fast die ganze Anwendung gebaut ;-)

      <input type="radio" name="mode" value="nopictures" checked>Ohne Bilder
      <input type="radio" name="mode" value="pictures">Mit Bildern
      
      im Formular fehlen bei name die = - So wird der Wert nicht übermittelt.

      <input type="radio" name="mode=" value="nopictures" checked>Ohne Bilder
      <input type="radio" name="mode=" value="pictures">Mit Bildern
      

      Sander

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 20:42.
    Re: Opionsschaltflächen für die Ausgabe

      Jetzt klapt es zu 90 %
      in der letzten Zeile bei der Bildausgabe steht noch etwas, was dort nicht hingehört.
      Vielleicht finde ich den Grund noch.

      Vielen dank für die Geduld mit einem Anfänger.

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 20:44.
    Re: Opionsschaltflächen für die Ausgabe

      Da war noch ein Leerzeichen.

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 21:03.
    Re: Opionsschaltflächen für die Ausgabe

      Hallo Sander,

      es doch doch noch ein Fehler.
      Es geht nur eine Seite, ab der 2'ten
      geht es leider nicht.
      Und ich weis wirklich nicht wo der Haken ist.
      Hier der aktuelle Quelltext:
      <html>
      <head>
      <title>Ausgabe mit oder ohne Bilder</title>
      <link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
      </head>
      <body>
      <perl>
      if($mode eq "pictures") {
      

      out <<EOF;
      <p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
      EOF
      }
         if($mode eq "nopictures") {
      out <<EOF;
          <p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
      EOF
      }
      </perl>
      

      <table border="2" width="100%" cellpadding="2" cellspacing="1">
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF
      }
      if($mode eq "nopictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF
      }
      </perl>
      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
            $append = $append."&Land~=$Land" if $Land ne "";
            $append = $append."&Stadt~=$Stadt" if $Stadt ne "";
            $append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
            $append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
            $append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
           </perl>
      <loop code=perl db=brueckenbau>
      out "";
      </loop>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      

      <loop db=brueckenbau code=perl>
       
      if($mode eq "nopictures") {
      out <<EOF;
      

      <tr align="center">

      <td align=left>
      <span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></span>
      </td>
      <td align=left>
      <span class=mengentext>$SeitenEigentuemer</span>
      </td>
      <td align=left>
      <span class=mengentext>$Stadt</span>
      </td>
      <td align=left>
      <span class=mengentext>$Land</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegOben</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegUnten</span>
      </td>
      </tr>
       
      EOF
      }
          if($mode eq "pictures") {
           out <<EOF;
      <tr>
      <td>
      <a href="$BildLink"><img src="$BildvorschauLink" alt="$Brueckenname" border="0"></a>
      </td>
      <td valign="top">
      <strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></font></strong>, $Stadt, $Land, <p>$Beschreibung</p>
      </td>
      </tr>
      <tr>
      <td width="100%" colspan="2">
      <hr noshade size="3" color="#008080">
      </td>
      </tr>
       
      EOF
      }
         </loop>
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF
      }
           if($mode eq "nopictures") {
      

      out <<EOF;
            <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF
      }
      </perl>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      </table>
      <div align="center">
      <perl>
      out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
      </perl>
      <include src=hinweis>
      </div>
      </body>
      </html>
       
      

      Bis demnächst.

     Antworten

    Beitrag von Stefan Krupop (311 Beiträge) am Dienstag, 24.April.2001, 21:44.
    Re: Opionsschaltflächen für die Ausgabe

      Oh je, was hab ich da bloß für Code fabriziert... Na ja, das nächste mal achte ich drauf...

      Jetzt dürfte das Problem sein, dass die Ausgabeart nicht mitgegeben wird. Also an den Block

      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
       
      $append = $append."&Land~=$Land" if $Land ne "";
            $append = $append."&Stadt~=$Stadt" if $Stadt ne "";
            $append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
            $append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
            $append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
      

      noch

            $append = $append."&mode=$mode";
      

      dranhängen.

      Hoffentlich ist da jetzt kein Fehler drin :)

      Stefan

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Mittwoch, 25.April.2001, 11:17.
    Re: Opionsschaltflächen für die Ausgabe geht jetzt

      Danke an alle Helfer jetzt get es.

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Mittwoch, 25.April.2001, 18:33.
    Re: Opionsschaltflächen für die Ausgabe geht jetzt

      Hallo,

      ich wollte jetzt noch erreichen, dass die Ausgabemenge unterschiedlich ist.
      Dazu habe ich das:
      if($mode eq "pictures") {
      $range="0,5";
      }
         if($mode eq "nopictures") {
      $range="0,10";
      }
      
      am Anfang in perl eingefügt.

      Warum geht das nicht ?

     Antworten

    Beitrag von Stefan Krupop (311 Beiträge) am Mittwoch, 25.April.2001, 22:17.
    Re: Opionsschaltflächen für die Ausgabe geht jetzt

      Versuch mal das 2. loop

      <loop db=brueckenbau code=perl> <== Dieses
      if($mode eq "nopictures") {
      out <<EOF;
      <tr align="center">
      <td align=left>
       
      
      Durch das zu ersetzen:

      <loop db=brueckenbau code=perl range=$range>
      

      Stefan

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 26.April.2001, 08:57.
    Re: Opionsschaltflächen für die Ausgabe geht jetzt

      Hallo,

      genau das wars.
      Jetz geht es.

      Danke für die Hilfe.

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 26.April.2001, 12:56.
    Re: Opionsschaltflächen für die Ausgabe geht jetzt

      Hallo,

      geht doch nicht richtig.
      es werden jetzt zwar die unterschidliche Anzahl Datensätze angezeigt.
      Aber beim blättern kommen jetzt immer die gleichen.

      Was könnte noch falsch sein ?

     Antworten

    Beitrag von Stefan Krupop (311 Beiträge) am Donnerstag, 26.April.2001, 14:29.
    Re: Opionsschaltflächen für die Ausgabe geht jetzt

      Ups, hab ich schon wieder was übersehen...
      Durch die Variablenfestlegung wird natürlich der Anfangswert immer überschrieben...

      Mach mal am besten die letzten Änderungen (loop und range=) wieder rückgängig und ändere lieber die Suchseite:

      1. Das Formular
      <form action="baseportal.pl?htx=/brueckenbau/suchergebnis&cmd=search" method="post" enctype="multipart/form-data" name="suche">
      

      2. Die Radiobuttons
      <input type="radio" name="mode=" value="nopictures" checked onclick="document.suche.elements['range='].value='0,10'">Tabelarisch ( 10 Datensätze / Seite )<br>
      <input type="radio" name="mode=" value="pictures" onclick="document.suche.elements['range='].value='0,5'">Mit Bildvorschau ( 5 Datensätze / Seite )<br>
      

      Stefan

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 26.April.2001, 17:51.
    Re: Opionsschaltflächen für die Ausgabe geht jetzt

      Es hat geklapt.

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Dienstag, 24.April.2001, 21:40.
    Re: Opionsschaltflächen für die Ausgabe

      Hallo Sander,

      es doch doch noch ein Fehler.
      Es geht nur eine Seite, ab der 2'ten
      geht es leider nicht.
      Und ich weis wirklich nicht wo der Haken ist.
      Hier der aktuelle Quelltext:
      <html>
      <head>
      <title>Ausgabe mit oder ohne Bilder</title>
      <link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
      </head>
      <body>
      <perl>
      if($mode eq "pictures") {
      

      out <<EOF;
      <p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
      EOF
      }
         if($mode eq "nopictures") {
      out <<EOF;
          <p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
      EOF
      }
      </perl>
      

      <table border="2" width="100%" cellpadding="2" cellspacing="1">
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF
      }
      if($mode eq "nopictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF
      }
      </perl>
      <perl>
      $append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
            $append = $append."&Land~=$Land" if $Land ne "";
            $append = $append."&Stadt~=$Stadt" if $Stadt ne "";
            $append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
            $append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehrswegUnten ne "";
            $append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
           </perl>
      <loop code=perl db=brueckenbau>
      out "";
      </loop>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      

      <loop db=brueckenbau code=perl>
       
      if($mode eq "nopictures") {
      out <<EOF;
      

      <tr align="center">

      <td align=left>
      <span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></span>
      </td>
      <td align=left>
      <span class=mengentext>$SeitenEigentuemer</span>
      </td>
      <td align=left>
      <span class=mengentext>$Stadt</span>
      </td>
      <td align=left>
      <span class=mengentext>$Land</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegOben</span>
      </td>
      <td align=left>
      <span class=mengentext>$VerkehrswegUnten</span>
      </td>
      </tr>
       
      EOF
      }
          if($mode eq "pictures") {
           out <<EOF;
      <tr>
      <td>
      <a href="$BildLink"><img src="$BildvorschauLink" alt="$Brueckenname" border="0"></a>
      </td>
      <td valign="top">
      <strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</a></font></strong>, $Stadt, $Land, <p>$Beschreibung</p>
      </td>
      </tr>
      <tr>
      <td width="100%" colspan="2">
      <hr noshade size="3" color="#008080">
      </td>
      </tr>
       
      EOF
      }
         </loop>
      <tr>
      <perl>
      if($mode eq "pictures") {
      out <<EOF;
      <td width="100%" valign="top" colspan="2" valign="middle" align="center">
      EOF
      }
           if($mode eq "nopictures") {
      

      out <<EOF;
            <td width="100%" valign="top" colspan="6" valign="middle" align="center">
      EOF
      }
      </perl>
      <perl>
       
      my $newrange=$_range+$_range_length;
            my $oldrange=$_range-$_range_length;
            $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
            out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
            out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
           </perl>
      </td>
      </tr>
      </table>
      <div align="center">
      <perl>
      out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
      </perl>
      <include src=hinweis>
      </div>
      </body>
      </html>
       
      

      Bis demnächst.

     Antworten


     
 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


Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



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