Re: @Sander & Co Ausgabe änden - 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 Sander (8133 Beiträge) am Montag, 16.Juli.2001, 00:11.
    Re: @Sander & Co Ausgabe änden

      dann probiers mal so:
      tausch
      <perl>
      $append = "&Bereich~=$Bereich" if $Bereich ne "";
      $append.= "&Name~=$Name" if $Name ne "";
      $append.= "&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
      $append.= "&Version~=$Version" if $Version ne "";
      $append.= "&Datum~=$Datum" if $Datum ne "";
      $append.= "&URL~=$URL" if $URL ne "";
      </perl>
      
      gegen:
      <perl>
      if ($cmd eq "search")
      {
      $append = "&Bereich~=$Bereich" if $Bereich ne "";
      $append.= "&Name~=$Name" if $Name ne "";
      $append.= "&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
      $append.= "&Version~=$Version" if $Version ne "";
      $append.= "&Datum~=$Datum" if $Datum ne "";
      $append.= "&URL~=$URL" if $URL ne "";
      }else
      {
      $append = "&Bereich==$Bereich" if $Bereich ne "";
      }
      </perl>
      

      Dann klappen die Links für Bereich wieder, willst du andere Felder, muß es weiter gehen wie bei search nur mit ==

      Sander


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Jogi (53 Beiträge) am Sonntag, 15.Juli.2001, 17:26.
    @Sander & Co Ausgabe änden

      Hallo

      ich rufe meine datensätze über einen direkten link auf

      funzt auch prima.

      es werden nur alle datensätze angezeigt.
      ich möchte aber nur den Bereich=CD;range=0,5
      angezeigt bekommen.

      das template wird aber noch von anderen aufrufen benötigt,die alle bestens FUNZEN, möcht es deshalb nicht verändern.

      hier der aufruf, der alle 2600 datensätze anzeigt.

      http://baseportal.de/cgi-bin/baseportal.pl?htx=/pc_hilfe/Treiber1/ausgabe&cmd=search&range=0,5


      was muß ich ändern?

      Danke

      mfg Jogi

     Antworten

    Beitrag von Sander (8133 Beiträge) am Sonntag, 15.Juli.2001, 17:53.
    Re: @Sander & Co Ausgabe änden

     Antworten

    Beitrag von Jogi (53 Beiträge) am Sonntag, 15.Juli.2001, 18:11.
    Re: @Sander & Co Ausgabe änden

      Hallo und vorab schomn Dank

      hier das template

      mfg. Jogi

      <html>
      <head>
      <title>PC - Hilfe - Treiber - Ausbabe</title>
      </head>
      <body background="http://www.pchilfe-service.de/private/30d.gif">
      <include src=/pc_hilfe/website/kopf>
      <p align="center"><b><font color="#0000FF" size="4" face="Arial">Suchergebnisse</font></b></p>
      <perl>
      $append = "&Bereich~=$Bereich" if $Bereich ne "";
      $append.= "&Name~=$Name" if $Name ne "";
      $append.= "&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
      $append.= "&Version~=$Version" if $Version ne "";
      $append.= "&Datum~=$Datum" if $Datum ne "";
      $append.= "&URL~=$URL" if $URL ne "";
      </perl>
      <loop code=perl db=/pc_hilfe/Treiber1/Daten>
      $ausgabe.=<<EOF;
      <center>
      <table bgcolor="#eaf4d9" border="0" bordercolor="#ffffff" width="500" cellpadding="2" cellspacing="1">
      

      <tr><td width="80">
       



      <font color="#0000FF"><b><center>$Bereich</b></font>
      

      </td>
      <td width="80"><font color="#0000FF"><b><center>$Name</b></font></td>
      <td width="138"> <font color="#0000FF"><center>$Bezeichnung</font></td>
      <td width="121"><font color="#0000FF"><center>$Version</font></td>
      <td width="50"><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/pc_hilfe/Treiber1/Details&cmd=all&Id==$_id><center><img border="0" src="http://www.pchilfe-service.de/private/pfeil-blink.gif">   
      <tr><td width=500 colspan=5><hr noshade size=1 color=#0000FF></td></tr>
      </table>
      

      EOF


      </loop>
      <center>
      <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.pchilfe-service.de/private/pfeil-links.gif\" width=\"40\" height=\"20\" border=0 alt=\"zurück\"></a><b><font color=\"#0000ff\"> Zurück +++ Weiter </font></b>" if $oldrange>=0;
      

      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.pchilfe-service.de/private/pfeil-rechts.gif\" width=\"40\" height=\"20\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
      </perl>
       <br>
      <font color="#0000ff"><b>Bei dieser Suchanfrage wurden $_amount_query Datensätze gefunden</b></font><br><br>
      <table bgcolor=\"#eaf4d9\" border=\"02\" bordercolor=\"#ffffff\" width=\"500\" cellpadding=\"2\" cellspacing=\"1\">
      

      <tr>
      <td width=80 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Bereich</b></font>
      </td>
      <td width=85 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Hersteller</b></font></td>
      <td width=138 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
       <font color=\"#0000FF\"><b>Beschreibung</b></font></td>
      <td width=126 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Version</b></font></td>
      <td width=50 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
       <font color=\"#0000FF\"><b>Detail</b></font></td>
      

      </tr>
      </table>
      <br>
       
      <perl>
      out $ausgabe;
       
      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.pchilfe-service.de/private/pfeil-links.gif\" width=\"40\" height=\"20\" border=0 alt=\"zurück\"></a><b><font color=\"#0000ff\"> Zurück +++ Weiter </font></b>"  if $oldrange>=0; 
      out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.pchilfe-service.de/private/pfeil-rechts.gif\" width=\"40\" height=\"20\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
      </perl>
      

      <br>
      <font color="#0000ff"><b>Bei dieser Suchanfrage wurden $_amount_query Datensätze gefunden</b></font>
      </center>
      </body>
      </html>
      

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 16.Juli.2001, 00:11.
    Re: @Sander & Co Ausgabe änden

      dann probiers mal so:
      tausch
      <perl>
      $append = "&Bereich~=$Bereich" if $Bereich ne "";
      $append.= "&Name~=$Name" if $Name ne "";
      $append.= "&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
      $append.= "&Version~=$Version" if $Version ne "";
      $append.= "&Datum~=$Datum" if $Datum ne "";
      $append.= "&URL~=$URL" if $URL ne "";
      </perl>
      
      gegen:
      <perl>
      if ($cmd eq "search")
      {
      $append = "&Bereich~=$Bereich" if $Bereich ne "";
      $append.= "&Name~=$Name" if $Name ne "";
      $append.= "&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
      $append.= "&Version~=$Version" if $Version ne "";
      $append.= "&Datum~=$Datum" if $Datum ne "";
      $append.= "&URL~=$URL" if $URL ne "";
      }else
      {
      $append = "&Bereich==$Bereich" if $Bereich ne "";
      }
      </perl>
      

      Dann klappen die Links für Bereich wieder, willst du andere Felder, muß es weiter gehen wie bei search nur mit ==

      Sander

     Antworten

    Beitrag von Jogi (53 Beiträge) am Montag, 16.Juli.2001, 00:23.
    Re: @Sander & Co Ausgabe änden

      Hallo Sander

      Das blättern oben klappt,
      aber unten nicht,
      es werden ALLE datensätze des BEREICHS ausgegeben.

      mfg und gute Nacht Jogi

      DANK DANK

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 16.Juli.2001, 01:24.
    Re: @Sander & Co Ausgabe änden

      unter dem loop:


      ...
      </loop>
      <center>
      <perl>
      my $newrange=$_range+$_range_length;
      my $oldrange=$_range-$_range_length;
      $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
      $Links="<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.pchilfe-service.de/private/pfeil-links.gif\" width=\"40\" height=\"20\" border=0 alt=\"zurück\"></a><b><font color=\"#0000ff\"> Zurück +++</font></b>" if $oldrange>=0;
      $Links.=" Weiter <a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.pchilfe-service.de/private/pfeil-rechts.gif\" width=\"40\" height=\"20\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
      $Links.="<br><font color=\"#0000ff\"><b>Bei dieser Suchanfrage wurden $_amount_query Datensätze gefunden</b></font><br><br>";
      out $Links;
      </perl>
      <table bgcolor=\"#eaf4d9\" border=\"02\" bordercolor=\"#ffffff\" width=\"500\" cellpadding=\"2\" cellspacing=\"1\">
      

      <tr>
      <td width=80 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Bereich</b></font>
      </td>
      <td width=85 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Hersteller</b></font></td>
      <td width=138 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Beschreibung</b></font></td>
      <td width=126 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Version</b></font></td>
      <td width=50 valign=\"top\" valign=\"middle\" align=\"center\" bordercolor=\"#0000FF\" bgcolor="#EAF4D9">
      <center>
      <font color=\"#0000FF\"><b>Detail</b></font></td>
      </tr> 
      </table>
      <br>
      <perl>
      out $ausgabe;
      out $Links; 
      </perl>
      </center>
      </body>
      </html>
      

      und der Rest drunter weglöschen. Ich hab die links in ne Var gepackt und 2x ausgegeben.

      Sander

     Antworten


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