Re: @CB/mail v.06.01.2005/Perl-Version - 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 Claus (4645 Beiträge) am Freitag, 7.Januar.2005, 13:41.
    Re: @CB/mail v.06.01.2005/Perl-Version

      Hallo Christoph,

      habe gerade Deine 2. mail gelesen. Werde mal in Erfahrung bringen, welche Perl-Version auf dem Server installiert ist.

      Hatte übrigens schon einige andere Unterschiede bemerkt, konnte die aber entsprechend umproggen. Bei @_sel bin ich jedoch überfragt, wie ich das in den Griff kriegen kann.

      Gruß

      Claus


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Claus (4645 Beiträge) am Freitag, 7.Januar.2005, 10:05.
    @CB/mail v.06.01.2005

      Hallo Christoph,

      hast Du meine mail nicht bekommen??

      Gruß

      Claus

     Antworten

    Beitrag von Claus (4645 Beiträge) am Freitag, 7.Januar.2005, 12:32.
    Re: @CB/mail v.06.01.2005/Unterschiede Lizenz/Miete????

      Hallo Cristoph,

      Antwort leider etwas unbefriedigend. Anscheinend gibt es doch gravierende Unterschiede zwischen Lizenz und Miete.

      Hier mal der gesamte Quelltext, der im Mietaccount EINWANDFREI!!! funktioniert. Bei Lizenz zerschießt das Programm @_sel stückchenweise!!!

      Übergabe von @_sel wird nach dem abschicken des Suchformulars oben angezeigt. Schon bevor!!!! man auf einen Sortierlink klickt, kann man unten in der Statuszeile beim Mouseover sehen, das da bereits Angaben fehlen!!!!!!!!!

      <perl>
$append="&@_sel";
out"$append";

      $v||=0; #0 als standartwert setzen
      out"<font=Arial><h4>Suchausgabe</h4>";
out"<h5>Gebrauchtwagen aus Bremen, Hamburg, Mecklenburg/Vorpommern, Niedersachsen und Schleswig-Holstein</h5></font>";

      out" <table border=0 cellpadding=0 cellspacing=2 width=604>
         <tr>
    <td width=38><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhaus1><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Alles</font></a></td>
    <td width=48><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuche><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Suchen</font></a></td>
    <td width=116><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=Preis><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach Preis</font></a></td>
                            <td width=130><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=-Erfasst><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach Datum</font></a></td>	
                            <td width=145><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=Hersteller><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach Hersteller</font></a></td>	
                            <td><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=PS><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach PS</font></a></td>

         
         </tr>
   
   
   </tr>
   <tr height=10>
    <td width=40 height=10></td>
    <td width=50 height=10></td>
    <td width=116 height=10></td>
    <td width=130 height=10></td>
    <td width=145 height=10></td>
    <td height=10></td>
   </tr>
  </table>";
get "sort=$sort Preis>0 @_sel range=$v,10 ","kfzhh"; 
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='#EEEEEE';

      my $color_vonbis='#FFFFFF';

      my $color_zahl='#EEEEEE';

      my $color_vorzu='#EEEEEE';

      my $color_balken='#FFFFFF';

      my $font='Thomas, Arial';

      my $size='2';

      my $table='';

      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&suche=$suche&@_sel&sort=$sort\">|<</a>":"|<";

      out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";

      out $oldrange>=0?"<a href=\"$_link&v=$oldrange&suche=$suche&@_sel&sort=$sort\"><</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&suche=$suche&@_sel&sort=$sort\">></a>":">>";

      out "</font></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&suche=$suche&v=".($ende."0")."&@_sel&sort=$sort\">>|

      </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&suche=$suche&v=".($vr-$blaetter_lang)."&@_sel&sort=$sort><<</a></font></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&suche=$suche&v=$i&@_sel&sort=$sort>".($i+1)."</a>")."</font></td>";

      }

      out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&suche=$suche&v=$i&@_sel&sort=$sort>>></a></font></td>" if $i<$_amount_query;

      }
out "</font></tr></table></div><br>"; 
out"<table border=0 cellpadding=2 cellspacing=2 width=100% bgcolor=black>
  
    <td><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=3 color=white>Details</font><font size=3 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=3></font></td>
    <td><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=3 color=white>Kurzbeschreibung</font><font size=3 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font></td>
    <td width=105 align=right><font size=3 color=white face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>Preis</font></td>
   </tr>
  </table>";
while(get_next("kfzhh")) 
{

      out"<table border=0 cellpadding=1 cellspacing=1 width=100% bgcolor=black>
         <tr bgcolor=#ffffcc>
    <td colspan=3><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>$Hersteller $Model $KfzArt</font><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><font size=3></font></font></td>
   </tr>
   <tr bgcolor=white>
    <td width=65><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2><a href=http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhdetailaus&Id==$_id><img src='/bp-files/$Details'></a></font><font size=2 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2></font></td>
    <td><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>$Kurzbeschreibung</font><font size=2 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font></td>
    <td width=105 align=right><font size=2 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>$Preis Euro</font></td>
   </tr>
  </table>";
 
}
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='2';

      my $table='';

      my $table_align='left';


      out "<br><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&suche=$suche&@_sel&sort=$sort\">|<</a>":"|<";

      out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";

      out $oldrange>=0?"<a href=\"$_link&v=$oldrange&suche=$suche&@_sel&sort=$sort\"><</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&suche=$suche&@_sel&sort=$sort\">></a>":">>";

      out "</font></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&suche=$suche&v=".($ende."0")."&@_sel&sort=$sort\">>|

      </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&suche=$suche&v=".($vr-$blaetter_lang)."&@_sel&sort=$sort><<</a></font></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&suche=$suche&v=$i&@_sel&sort=$sort>".($i+1)."</a>")."</font></td>";

      }

      out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&suche=$suche&v=$i&@_sel&sort=$sort>>></a></font></td>" if $i<$_amount_query;

      }

      out "</font></tr></table></div>"; 

      </perl>


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

      Hier der Aufruf für das Suchformular, welches bei Miete EBENFALLS!!!!! einwandfrei funktioniert.

       http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuche


      Ist nicht der erste Unterschied!!!

      Gruß

      Claus

     Antworten

    Beitrag von Claus (4645 Beiträge) am Freitag, 7.Januar.2005, 12:48.
    Re: @CB/mail v.06.01.2005/Gerade merkwürdigens gesehen!!!

      Hallo Christoph,

      habe gerade gesehen, daß die Links nicht sauber getrennt sind. Eigenartigerweise hat es im Mietaccount so funktioniert.

      werde das erst mal korrigieren.

      Gruß

      Claus

     Antworten

    Beitrag von Claus (4645 Beiträge) am Freitag, 7.Januar.2005, 12:58.
    Re: @CB/mail v.06.01.2005/Text doch ok.

      Hallo Christoph,


      merkwürdigerweise wurden vorhandene "<" bei den Links im Quelltext hier nicht mit angezeigt. Kann mir nicht erklären, warum???

      Gruß

      Claus

     Antworten

    Beitrag von Claus (4645 Beiträge) am Freitag, 7.Januar.2005, 13:41.
    Re: @CB/mail v.06.01.2005/Perl-Version

      Hallo Christoph,

      habe gerade Deine 2. mail gelesen. Werde mal in Erfahrung bringen, welche Perl-Version auf dem Server installiert ist.

      Hatte übrigens schon einige andere Unterschiede bemerkt, konnte die aber entsprechend umproggen. Bei @_sel bin ich jedoch überfragt, wie ich das in den Griff kriegen kann.

      Gruß

      Claus

     Antworten

    Beitrag von Sander (8133 Beiträge) am Freitag, 7.Januar.2005, 13:58.
    Re: @CB/mail v.06.01.2005/Perl-Version

      machst du hier Selbstgespräche? ;-)

     Antworten

    Beitrag von Claus (4645 Beiträge) am Freitag, 7.Januar.2005, 14:41.
    Re: @CB/mail v.06.01.2005/Perl-Version

      Hat fast den Anschein;)

     Antworten


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