Re: Noch ein Blätternproblem - $v setzen - 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 Tina (259 Beiträge) am Montag, 25.August.2003, 15:04. WWW: ZERGportal.de
    Re: Noch ein Blätternproblem - $v setzen

      <perl>
      $v=$v||0;
      </perl>
      

      ....

      <loop db=Thema range^=$v,6>
      

      und $v=$v||0; beim blättern raus ;-)

      LG
      Tina


    Ihre Antwort:

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

    Neuer Eintrag


 Alle Einträge zum Thema: Zur Liste 
    Beitrag von othmar (6 Beiträge) am Montag, 25.August.2003, 07:09. WWW: katechese.ch
    Noch ein Blätternproblem

      Ich gebe meine Ausgabe mit loop aus und möchte natürlich auch, dass man durch alle Beiträge blättern kann. Ich habe dazu die Blättern fast nachgebaut aus der Bib genommen. Dabei sehe ich jedoch immer nur die ersten 6 Beiträge, obwohl im Blättern die Zahlen ändern. Wer kann mir da weiter helfen?
      Hier mein Quelltext:
      Besten Dank im voraus

      *****
      <table cellpadding=0 cellspacing=0 border=0 bgcolor=f0f0f0 width="100%"><tr><td>
      <table border=0 cellspacing=2 cellpadding=4>
      <table border="1" width="100%">
           <colgroup>
            <col width="1*"
              <col width="4*">
              <col width="2*">
              <col width="1*">
              <col width="1*">
           </colgroup>
      </table>
      

      <font face=verdana size=2><headface=verdana headsize=2 dataface=verdana datasize=2>
      <tr bgcolor=c0d0f0>
      <td><font size=2><font color="red">Detail: </font></font></td>
      <td><font size=2><font color="red">Titel: </font></font></td>
      <td><font size=2><font color="red">Stichworte: </font></font></td> 
      <td><font size=2><font color="red">Stufe: </font></font></td>
      <td><font size=2><font color="red">Art: </font></font></td></tr>
      <loop db=Thema range=0,6>
      <tr>
      <td bgcolor=e0e0e0><font size=2><a href="http://vhk.netpure.de/baseportal/vhk/Themenbeitraege/Detail&Id==$_id" target=blank>Detail</a></font></td>
      <td bgcolor=e0e0e0><font size=2>$Titel</font></td>
      <td bgcolor=e0e0e0><font size=2>$Stichworte</font></td>
      <td bgcolor=e0e0e0><font size=2>$Stufe</font></td>
      <td bgcolor=e0e0e0><font size=2>$Art</font></td>
      <tr></tr><tr></tr>
      </tr></loop><tr>
      

      <perl>
      $v=$v||0;
      get "Id==* sort=-Id range=$v,6", "Thema";
      

      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 $font='Thomas, Arial';
      my $size='1';
      my $table=''; #kann auch %-Angabe gesetzt werden
      my $table_align='left';
      

      out "<div align=$table_align>";
      out "<table width=$table cellpadding=4 height=25 cellspacing=4><tr align=left>
      <td bgcolor=$color align='center'><font face=$font font size=$size>";
       
      $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=$font font size=$size>";
      out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
      out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";
      

      $ende=substr($_amount_query,0,length($_amount_query)-1);
      out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
      out "</td><td font face=$font font size=$size bgcolor=$color align='center'><font face=$font font size=1>";
      out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
      </a>":">|";
      out "</font></td><td bgcolor=$color_vonbis width='185' align='center'><font face=$font font size=$size>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=$font font size=$size><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=$font font size=$size>".($v==$i?"<b>".($i+1)."</b>":"<a
      href=$_link&v=$i>".($i+1)."</a>")."</td>";
      }
      out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
      }
      out "</font></tr></table></div>"; 
       
      </perl>
      
      *****

     Antworten

    Beitrag von till (1103 Beiträge) am Montag, 25.August.2003, 09:13.
    Re: Noch ein Blätternproblem

      hallo,

      probiere mal
      <loop db=Thema range^=0,6>
      

      till

     Antworten

    Beitrag von othmar (6 Beiträge) am Montag, 25.August.2003, 12:52. WWW: katechese.ch
    Re: Noch ein Blätternproblem

      Herzlichen Dank für deine Antwort till.
      Doch das wars noch nicht. Noch immer werden nur die ersten 6 Datensätze angezeigt und nicht wirklich weitergeblättert.
      Vielleicht hast du noch eine Idee.
      Gruss
      othmar

     Antworten

    Beitrag von Tina (259 Beiträge) am Montag, 25.August.2003, 15:04. WWW: ZERGportal.de
    Re: Noch ein Blätternproblem - $v setzen

      <perl>
      $v=$v||0;
      </perl>
      

      ....

      <loop db=Thema range^=$v,6>
      

      und $v=$v||0; beim blättern raus ;-)

      LG
      Tina

     Antworten

    Beitrag von othmar (6 Beiträge) am Montag, 25.August.2003, 15:45. WWW: katechese.ch
    Re: Noch ein Blätternproblem - $v setzen

      Super! Hat geklappt!
      Besten Dank.
      othmar

     Antworten


     
 Liste der Einträge von 35551 bis 35701: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!