Re: Auf der Suche nach "Reiterspielen" - 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 Micha Jost (347 Beiträge) am Mittwoch, 22.Mai.2002, 22:00.
    Re: Auf der Suche nach "Reiterspielen"

      Hi Sander,

      da habe ich schon geschaut, aber scheinbar mit getrübter Pupille.
      Hast Du mal ein Tipp, welches bib-beispiel da passen würde?

      Danke

      Gruß
      Micha


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Micha Jost (347 Beiträge) am Mittwoch, 22.Mai.2002, 20:21.
    Auf der Suche nach "Reiterspielen"

      Hallo,

      immer wieder findet man bei den Profi-"Perlatoren" Templates mit Reitern wie bei der <do action=all>- Schiene, aber eben selbst gemacht (Anzahl Seiten mit Nummern die gleichzeitig verlinkt sind usw.).
      Es reicht ja wohl nicht einfach Links zu definieren die mit einer Range-Funktion gekoppelt sind, oder?
      Wo werde ich da auf der Suche nach Bastelanleitungen fündig, weil nur mit der Blätterfunktion allein kann man sich auf Dauer ja nicht zufrieden geben;-)
      Danke für Tipps.

      Gruß
      Micha

     Antworten

    Beitrag von Sander (8133 Beiträge) am Mittwoch, 22.Mai.2002, 20:26.
    Re: Auf der Suche nach "Reiterspielen"

      schau doch mal in die bib, da gibts ein paar nachbauten

      Sander

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Mittwoch, 22.Mai.2002, 22:00.
    Re: Auf der Suche nach "Reiterspielen"

      Hi Sander,

      da habe ich schon geschaut, aber scheinbar mit getrübter Pupille.
      Hast Du mal ein Tipp, welches bib-beispiel da passen würde?

      Danke

      Gruß
      Micha

     Antworten

    Beitrag von Oliver ;-) (500 Beiträge) am Mittwoch, 22.Mai.2002, 23:04.
    Re: Auf der Suche nach "Reiterspielen"

      Hallo Micha,

      >Blätterfunktion "fast" nachgebaut< unter Tools von Tina und Sander müsste das sein, was du brauchst.
      

      Grüße
      Oliver ;-)

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Donnerstag, 23.Mai.2002, 08:38.
    Reiterspiele gefunden- aber wildes Rodeo wg. -range und get

      Hallo Oliver,

      vielen Dank für den Tip.
      Aber es taucht wieder das Problem auf, das mit der normalen Blätterfunktion schon mal (von Sander) gelöst wurde.
      Weil get und range ein bischen bugy sind, wurde das mit einer Hilfskonstruktion gelöst, siehe unten (2. Perl-Schleife).
      Die dritte perl-Schleife ist aus der bib und da
      werden immer die gleichen datensätze angezeigt.
      Wie kann man das wohl anpassen??
      Das ist das Template zum ausprobieren.
      http://rathaus-buerstadt.de/baseportal/Linkliste2

      Danke und Grüße

      Micha


      <html><head><title>Linkliste 2</title>
      </head><body bgcolor="#ffffff">
      <include src=style>
      <perl>
      

      $v=$v||0; # Startwert vorgeben, wenn $v leer ist

      get "Id==* sort=Kategorie,Name range=$v,10", "Linkliste"; # $v ist variabel 
       
      while(get_next("Linkliste"))
      {
       
      out "<br><table width=\"75%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
      <tr>
      <td bgcolor=#FF9900><font face=verdana, arial font size=2><b>$Kategorie<br></b></font></td>
      </tr>
      </table>" if $Kategorie ne $Kategorie_alt; 
      out "<blockquote>
      <font face=verdana, arial font size=2>$Name<br><font>";
      

      out "<font face=verdana, arial font size=2><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\"> Internet:<a href=http://$URL target=\"_blank\">$URL</a></font><br></blockquote>";
      $Kategorie_alt=$Kategorie; 
      }
      </perl>
      <perl>
       
      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      

      out "<< <a href=\"$_link&v=$oldrange\">Zurück</a> " if $oldrange>=0;
      out "<a href=\"$_link&v=$newrange\">Weiter</a> >>" if $newrange<$_amount_query;
      </perl>
       
      

      <perl>

      my $range=$_range_length;
      my $blaettern=$_range_length;
      my $blaetter_lang=$range*10;
      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      my $color='#CCCCCC';
      my $color_vonbis='#FFFFFF';
      my $color_zahl='#CCCCCC';
      my $color_vorzu='#CCCCCC';
      my $color_balken='#CCCCCC';
      my $table='450';
      my $table_align='left';
      out "<div align=$table_align>";
      

      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left><td bgcolor=$color align='center'>";


      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      

      out $oldrange>=0?"<a href=\"$_link&range=0,$_range_length\">|<</a>":"|<";
      out "</td><td bgcolor=$color align='center'>";
      

      out $oldrange>=0?"<a href=\"$_link&range=$oldrange,$_range_length\"><</a>":"<<";
      out "</td><td bgcolor=$color align='center'>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&range=$newrange,$_range_length\">></a>":">>";
      out "</td><td bgcolor=$color align='center'>";
      

      out $newrange<$_amount_query?"<a href=\"$_link&range=".($ende."0").",$_range_length\">>| </a>":">|";
      out "</td><td bgcolor=$color_vonbis width='200' align='center'>Einträge ".($_range+1)." bis ".(($_range+$blaettern)>$_amount_query?"$_amount_query":($_range+$blaettern))." von $_amount_query</td>";
       
      if ($_amount)
      {
               $vr=int($_range/$blaetter_lang) unless $_range==0;
               $vr=$vr*$blaetter_lang;
               out "<td bgcolor=$color_vorzu align='center'><a href=$_link&range=".($vr-$blaetter_lang).",$_range_length\><<</a></td>" if ($vr-$blaetter_lang)>=0;
               for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
               {
                   out "<td bgcolor=$color_zahl align='center'>".($_range==$i?"<b>".($i+1)."</b>":"<a href=$_link&range=$i,$_range_length>".($i+1)."</a>")."</td>";
               }
               out "<td bgcolor=$color_vorzu align='center'><a href=$_link&range=$i,$_range_length>>></a></td>" if $i<$_amount_query;
           }
            out "</tr></table></div>";
      out <<EOF;
      

      <div align=$table_align>
        <table border="0" cellpadding="0" cellspacing="0" width=$table>
          <tr>
            <td width="0"><img border='0' src='http://www.URL.de/images/blind.gif' width='2' height='2'></td>
            <td bgcolor="#C0C0C0" width="100%"><img border='0' src='http://www.URL.de/images/blind.gif' width='2' height='2'></td>
             <td width="0"><img border='0' src='http://www.URL.de/images/blind.gif' width='2' height='2'></td>
          </tr>
        </table>
      </div>
      

      EOF
         
      </perl>
      </font>
      <include src=footer>
      </body></html>
      

     Antworten

    Beitrag von Oliver ;-) (500 Beiträge) am Donnerstag, 23.Mai.2002, 10:12.
    Re: Reiterspiele gefunden- aber wildes Rodeo wg. -range und get

      Hallo Micha,

      ich habe mal einen Teil etwas verändert.

      M.E. ist es das Problem, dass du im Link eine Variable "$range" mitschickst, aber im get diese gar nicht aufgefangen wird sondern eigentlich nach der Variablen "$v" gefragt wird.

      Daher habe ich mal "range" durch "v" ersetzt:

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      

      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</td><td bgcolor=$color align='center'>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</td><td bgcolor=$color align='center'>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td bgcolor=$color align='center'>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</td><td bgcolor=$color_vonbis width='200' align='center'>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
      

      if ($_amount)
      {
      

      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      {
      out "<td bgcolor=$color_zahl align='center'>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</tr></table></div>";
      

      Ich habe das zumindest so (ähnlich) und es funktioniert.

      Grüße
      Oliver ;-)

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Donnerstag, 23.Mai.2002, 11:18.
    Re: Reiterspiele gefunden- aber wildes Rodeo wg. -range und get

      Hallo Oliver,
      Danke für Deine Mühen.... aber leider bockt das Template noch.
      Das ist das Ergebnis:
      http://rathaus-buerstadt.de/baseportal/Linkliste2
      das weiter ist die herkömmliche Blätterfunktion, die funktioniert, drunter kommt Dein Code.
      Ich muss gestehen ich bin hier keine Hilfe, stehe dem Variablenfeuerwerk staunend gegenüber, bin aber extrem ratlos.

      Danke und Gruß
      Micha

     Antworten

    Beitrag von Oliver ;-) (439 Beiträge) am Donnerstag, 23.Mai.2002, 11:28.
    Re: Reiterspiele gefunden- aber wildes Rodeo wg. -range und get

      Schmeiß mal die obere (funktionierende) Blätterfunktion raus. Eventuell hast du derzeit einen Variablenkonflikt...

      Oliver ;-)

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Donnerstag, 23.Mai.2002, 11:57.
    Re: Reiterspiele gefunden- aber wildes Rodeo wg. -range und get

      Hi Oliver,

      der Rausschmiss hat keine erkennbaren Veränderungen gebracht.
      Leider :-(


      Gruß
      Micha

     Antworten

    Beitrag von Oliver ;-) (500 Beiträge) am Donnerstag, 23.Mai.2002, 12:23.
    Re: Reiterspiele gefunden- aber ...

      Wie ist denn dein jetziger Quelltext?

      Oliver ;-)

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Donnerstag, 23.Mai.2002, 13:23.
    Re: Reiterspiele gefunden- aber ...

      Hi Oliver,


      das ist das launische Teil....


      <html><head><title>Linkliste2</title>
      </head><body bgcolor="#ffffff">
      <include src=style>
      <perl>
      

      $v=$v||0; # Startwert vorgeben, wenn $v leer ist

      get "Id==* sort=Kategorie,Name range=$v,10", "Linkliste"; # $v ist variabel 
       
      while(get_next("Linkliste"))
      {
       
      out "<br><table width=\"75%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
      <tr>
      <td bgcolor=#FF9900><font face=verdana, arial font size=2><b>$Kategorie<br></b></font></td>
      </tr>
      </table>" if $Kategorie ne $Kategorie_alt; 
      out "<blockquote>
      <font face=verdana, arial font size=2>$Name<br><font>";
      

      out "<font face=verdana, arial font size=2><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\"> Internet:<a href=http://$URL target=\"_blank\">$URL</a></font><br></blockquote>";
      $Kategorie_alt=$Kategorie; 
      }
      </perl><br>
      

       
      <br>
      

      <perl>
      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      

      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</td><td bgcolor=$color align='center'>";
       
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</td><td bgcolor=$color align='center'>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td bgcolor=$color align='center'>";
       
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</td><td bgcolor=$color_vonbis width='200' align='center'>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
       
      if ($_amount)
      {
      

      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
       
      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      {
      out "<td bgcolor=$color_zahl align='center'>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</tr></table></div>";
       
      

      </perl>


      </font>
      <include src=footer>
      </body></html>
      

     Antworten

    Beitrag von Oliver ;-) (500 Beiträge) am Donnerstag, 23.Mai.2002, 13:37.
    Re: Reiterspiele gefunden- aber ...

      Du hast noch ein paar Variablendefinitionen vergessen und für die beiden <br>-Tags brauchst du perl nicht zu unterbrechen. Setz das mal an die Stelle von "</perl><br><br><perl>":

      -------------

      out "<br><br>";
      

      my $range=$_range_length;
      my $blaettern=$_range_length;
      my $blaetter_lang=$range*10;
      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      my $color='#CCCCCC';
      my $color_vonbis='#FFFFFF';
      my $color_zahl='#CCCCCC';
      my $color_vorzu='#CCCCCC';
      my $color_balken='#CCCCCC';
      my $table='450';
      my $table_align='left';
      

      out "<div align=$table_align>";
      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left><td bgcolor=$color align='center'>";
      

      -------------------

      Oliver ;-)

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Donnerstag, 23.Mai.2002, 14:23.
    Re: Reiterspiele gefunden- und wilden Mustang gezähmt

      Hallo Oliver,

      na, dann mal tausend Dank.
      Genau so funktioniert´s.
      Toll

      Gruß
      Micha

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Donnerstag, 23.Mai.2002, 14:46.
    Re: Reiterspiele gefunden- und wilden Mustang gezähmt

      wo kann man den das Ergebnis sehen ?

     Antworten

    Beitrag von Micha Jost (347 Beiträge) am Donnerstag, 23.Mai.2002, 17:52.
    Re: Reiterspiele gefunden- und wilden Mustang gezähmt

      Hallo,
      das isses.
      Da ist noch `ne Volltextsuche mit drin.
      Gruß
      Micha

      Link:
      http://rathaus-buerstadt.de/baseportal/Linkliste

      <html><head><title>Linkliste</title>
      </head><body bgcolor="#ffffff">
      <include src=style>
       
      

      <table width="40%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td bgcolor="#FFffcc"><div align="center">  
            <form action="baseportal.pl?htx=$htx&db=Linkliste" method="post" enctype="multipart/form-data">
              <input type="hidden" name="htx=" value="$htx">
              <input type="hidden" name="db=" value="Linkliste">
              <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Suchbegriff:</font> 
              <input type="text" name="_fullsearch~~"   value="$_fullsearch" size="10">
              <input type="submit" value="Suchen" name="submit">
            </form>
          </td>
        </tr>
      </table>
      <perl>
      return if $_fullsearch eq "";
      get "fullsearch_match=10";
       
      while(get_next)
      {
      $Name=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      $Bezeichnung=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      $Kategorie=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
      $out.=<<EOF;
      <b><font size=2 face=verdana>Kategorie $Kategorie</b></font><br><font size=1 face=verdana,arial,helvetica>$Name<br>Internet:<a href="http://$URL">$URL</a>  </font><p><hr>
      

       
      EOF
      }
      if ($_fullsearch_amount<1)
      {
      out "<font size=2 face=verdana, arial><b>Ihre Suchabfrage ergab leider keinen Treffer.</b></font><p>";
      } else
      {
      out "<font size=2 face=verdana, arial><b>Ihre Suchanfrage ergab $_fullsearch_amount Treffer (rot markiert)</b></font><p><hr>";
      }
      

      out $out;
       
      my $newrange=$_fullsearch_range+$_fullsearch_range_length;
      my $txt;
      if($_fullsearch_match_pos<$newrange)
      {
       
      $txt="Suche nach weiteren Treffern";
      $newrange=$_fullsearch_match_pos;
      } else
      {
       
      

      $txt="Suche in weiteren Datensätzen";


      }
      

      if($newrange<$_amount_all)
      {
       
      out "<font size=2 face=verdana, arial>Es wurde noch nicht in allen Datensätzen gesucht:</font>";
          out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
      } else
      {
      out "<font size=2 face=verdana, arial>Die Datenbank wurde komplett durchsucht.<br><br></font>";
      }
      $_fullsearch_amount;
      </perl>
      <perl>
      $v=$v||0; # Startwert vorgeben, wenn $v leer ist
       
      get "Id==* sort=Kategorie,Name range=$v,10", "Linkliste"; # $v ist variabel 
       my $range=$_range_length;
      my $blaettern=$_range_length;
      my $blaetter_lang=$range*10;
      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      my $color='#CCCCCC';
      my $color_vonbis='#FFFFFF';
      my $color_zahl='#CCCCCC';
      my $color_vorzu='#CCCCCC';
      my $color_balken='#CCCCCC';
      my $table='40%';
      my $table_align='left';
      out "<div align=$table_align>";
      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left>
      <td  bgcolor=$color align='center'><font face=verdana, arial font size=1>";
       
      

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</font></td><td bgcolor=$color_vonbis width='200' align='center'><font face=verdana, arial font size=1>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
       
      

      if ($_amount)
      {
      

      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
       
      

      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      {
      out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</font></tr></table></div>"; 
      while(get_next("Linkliste"))
      {
      out "<br><table width=\"40%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
      <tr>
      <td bgcolor=#ff9900><font face=verdana, arial font size=2><b>$Kategorie<br></b></font></td>
      </tr>
      </table>" if $Kategorie ne $Kategorie_alt; 
      out "<blockquote>
      <font face=verdana, arial font size=2>$Name<br><font>";
      out "<font face=verdana, arial font size=2><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\"> Internet:<a href=http://$URL target=\"_blank\">$URL</a></font><br></blockquote>";
      $Kategorie_alt=$Kategorie; 
      }
      out "<div align=$table_align>";
      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left>
      <td  bgcolor=$color align='center'><font face=verdana, arial font size=1>";
       
      

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</font></td><td bgcolor=$color_vonbis width='200' align='center'><font face=verdana, arial font size=1>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
       
      

      if ($_amount)
      {
      

      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
       
      

      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      {
      out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</font></tr></table></div>"; 
      </perl>
       
      </font>
      <include src=footer>
       
      </body></html>
      

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Freitag, 24.Mai.2002, 18:19.
    Re: Das Ergebnis kann jeder gebrauchen

      Hallo,

      hier ist mal wieder was gutes raus gekommen.

      Dies gehört in die bib
      leider verstehe ich vom Quelltext zu wenig.
      Bitte noch Komentare einfügen, was einiges Bedeutet.
      Ich habe es abgespeckt, und werde dies als allgemeine Ausgabeseite verwenden.

      Hier der abgespeckte Quelltext.
      <perl>
      $v=$v||0; # Startwert vorgeben, wenn $v leer ist
      get "Id==* sort=-Id range=$v,10", "bild"; # $v ist variabel 
       
      my $range=$_range_length;
      my $blaettern=$_range_length;
      my $blaetter_lang=$range*10;
      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      my $color='#CCCCCC';
      my $color_vonbis='#FFFFFF';
      my $color_zahl='#CCCCCC';
      my $color_vorzu='#CCCCCC';
      my $color_balken='#CCCCCC';
      my $table='300';
      my $table_align='left';
      

      out "<div align=$table_align>";
      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left>
      <td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</font></td><td bgcolor=$color_vonbis width='200' align='center'><font face=verdana, arial font size=1>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
      

      if ($_amount)
      {
      

      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
      

      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      

      {
      out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</font></tr></table></div>";
      

      while(get_next("bild"))
      {
      

      out "<h3>( $_id ) $Brueckenname</h3><p>";# Hier ist die eigentliche Ausgabe

      }
      

      out "<div align=$table_align>";
      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left>
      <td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      

      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</font></td><td bgcolor=$color_vonbis width='200' align='center'><font face=verdana, arial font size=1>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
      

      if ($_amount)
      {
      

      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
      

      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      

      {
      out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</font></tr></table></div>";
      

      </perl>

     Antworten

    Beitrag von Michael Koch (344 Beiträge) am Samstag, 25.Mai.2002, 19:47.
    Re: Reiterspiele gefunden- und wilden Mustang gezähmt

      Hallo,

      ich wollte dies für meine Ausgabeseiten verwenden,
      aber die Filter setzung über URL, so wie ich es sonst gemacht habe geht nicht.
      WARUM.
      Wie z.B. bei diesen beiden Links:
      http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/preisausschreiben/fotos_2&Baustoff~=Stahl

      http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/preisausschreiben/fotos_2&cmd=all&_fullsearch~~Rhein&fullsearch_match=100&db=bild

      und so sieht der Quelltext momentan vereinfacht aus.

      <html>
      <head>
      <title>Brückenfotos zum Preisausschreiben</title>
      <link rel="stylesheet" type="text/css" href="http://www.brueckenbau-links.de/bblinks.css">
      </head>
      <body>
      <h2 align="center">Preisausschreiben<br>
      &quot;<font color="#008080">Das schönste Brückenfoto</font>&quot; </h2>
      

      <perl>
            $append = $append."&Baustoff~=$Baustoff" if $Baustoff ne "";
            $append = $append."&_fullsearch~~$_sel{'_fullsearch'}" if $_sel{"_fullsearch"} ne ""; 
      </perl>
      

      <perl>
      $v=$v||0; # Startwert vorgeben, wenn $v leer ist
      get "Id==* sort=-Id range=$v,10", "bild"; # $v ist variabel 
      my $range=$_range_length;
      my $blaettern=$_range_length;
      my $blaetter_lang=$range*10;
      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      my $color='#CCCCCC';
      my $color_vonbis='#FFFFFF';
      my $color_zahl='#CCCCCC';
      my $color_vorzu='#CCCCCC';
      my $color_balken='#CCCCCC';
      my $table='500';
      my $table_align='left';
      

      out "<div align=$table_align>";
      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left>
      <td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</font></td><td bgcolor=$color_vonbis width='200' align='center'><font face=verdana, arial font size=1>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
      if ($_amount)
      {
      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      {
      out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</font></tr></table></div>";
      

      while(get_next("bild"))
      {
      #Beginn der Ausgabe
      

      out "<h3>( $_id ) $Brueckenname</h3><p>";

      #Ende der Ausgabe
      }
      out "<div align=$table_align>";
      out "<table width=$table cellpadding=2 cellspacing=2><tr align=left>
      <td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</font></td><td bgcolor=$color_vonbis width='200' align='center'><font face=verdana, arial font size=1>Einträge ".($v+1)." bis
      ".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
      $_amount_query</td>";
      if ($_amount)
      {
      $vr=int($v/$blaetter_lang) unless $_range==0;
      $vr=$vr*$blaetter_lang;
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
      ($vr-$blaetter_lang)>=0;
      for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
      {
      out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</font></tr></table></div>";
      </perl>
      <center>
      <include src=linksp>
      </center></div>
      </body></html>
      

      Es währe schön wenn ich Hilfe bekommen würde.

     Antworten


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