Beitrag von Claus S. (1671 Beiträge) am Donnerstag, 28.Juni.2001, 03:36.
Hilfe!!! Finde den Fehler nicht!
hallo zusammen,
suche jetzt schon seit vier stunden nach so einem blöden fehler :-(
dieses programm habe ich schon 4 x im einsatz, jetzt wieder eine neue datei, felder und namen angepasst ...
aber diesmal funzt es nicht, habe den code schon 1000 durchsucht, vielleicht sieht es einer von euch sofort
http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgdatsu
die selektion und das ergebnis scheinen zu stimmen,
aber die out" out" out" und farben werden falsch angezeigt
Antworten
Beitrag von fb (420 Beiträge) am Donnerstag, 28.Juni.2001, 06:18.
Re: Hilfe!!! Finde den Fehler nicht!
Antworten
Beitrag von Claus S. (1671 Beiträge) am Donnerstag, 28.Juni.2001, 07:54.
Re: Hilfe!!! Finde den Fehler nicht!
hallo fb,
is mir auch alles aufgefallen, das verrückte ist, dass dieses programm kopiert habe, das andere läuft und den code hab ich noch mal gecheckt:
<center>
<table align=center><tr><td valign=top align=center>
<h1>BG Suchergebnis</h1>
<!--- ab hier Routine Such-ERGEBNIS --------->
<table width=500>
<perl>
$aussuch=$sudbranche if ($sudbranche);
$aussuch=$aussuch.", Firma: ".$sudfirmnam if ($sudfirmnam);
$aussuch=$aussuch.", Strasse: ".$sudstrasse if ($sudstrasse);
out "<tr><td colspan=3 align=center> Suche nach: $aussuch</td></tr>";
</perl>
<perl>
$append = "&sudbranche=".convert_url($sudbranche) if $sudbranche ne "";
$append = $append."&sudfirmnam=".convert_url($sudfirmnam) if $sudfirmnam ne "";
$append = $append."&sudstrasse=".convert_url($sudstrasse) if $sudstrasse ne "";
$append = $append."&sudtelefon=".convert_url($sudtelefon) if $sudtelefon ne "";
$append = $append."&sudtelefax=".convert_url($sudtelefax) if $sudtelefax ne "";
$append = $append."&sudemail=".convert_url($sudemail) if $sudemail ne "";
$append = $append."&sudurl=".convert_url($sudurl) if $sudurl ne "";
$append = $append."&sudtyp=".convert_url($sudtyp) if $sudtyp ne "";
</perl>
<loop range^=0,20 db=bgdat dbranche==$sudbranche | dbranche2==$sudbranche | dbranche3==$sudbranche & dfirmnam~=$sudfirmnam & dstrasse~=$sudstrasse & dtelefon~=$sudtelefon & dtelefax~=$sudtelefax & demail~=$sudemail & durl~=$sudurl & dtyp~=$sudtyp sort^=dbranche,dfirmnam,dstrasse code=perl>
</loop>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<tr><td colspan=3>";
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img
if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img
src=\"http://www.bestguide.de/grafik/pfrechts.gif\" border=0 alt=\"weiter\"></a>"
if $newrange<$_amount_query;
if ($_amount != 0)
{
$bis = $_range+$_range_length;
$von = $_range+1;
out " Einträge $von bis ";
if ($bis < $_amount_query)
{
out "$bis von $_amount_query";
}else{
out "$_amount_query von $_amount_query";
}
}
out "</td></tr><tr><td> </td></tr>";
</perl>
<tr bgcolor=#000000>
<td> Branche</td>
<td> Firma</td>
<td> Strasse</td>
<td> Fon</td>
<td> X</td></tr>
<loop range^=0,20 db=bgdat dbranche==$sudbranche | dbranche2==$sudbranche | dbranche3==$sudbranche & dfirmnam~=$sudfirmnam & dstrasse~=$sudstrasse & dtelefon~=$sudtelefon & dtelefax~=$sudtelefax & demail~=$sudemail & durl~=$sudurl & dtyp~=$sudtyp sort^=dbranche,dfirmnam,dstrasse code=perl>
out "<tr bgcolor=".($_loop %2?"a0a0a0":"e8ecc8") .">
<td class=suer> $dbranche</td>
<td class=suer> $dfirmnam</td>
<td class=suer> $dstrasse</td>
<td class=suer> $dtelefon</td>
<td><a class=link2 href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgdatdt&cmd=all&Id==$_id> ?</a></td></tr>";
</loop>
</table>
<!----bis hier Routine SUCH-ERGEBNIS---->
<a class=link3 href="javascript:history.back()">[Zurück]</a>
</body></html>
gruss claus
Antworten
Beitrag von Claus S. (1671 Beiträge) am Donnerstag, 28.Juni.2001, 08:11.
Re: Hilfe!!! Finde den Fehler nicht!
Ich habe eben was ganz merkwürdiges entdeckt: durch das kopieren aus meinem bp-bereich in das forum hat sich bei dem code was wesentliches verschoben: der block mit den listausgabefeldern steht hier ausserhalb des loops, im original aber innerhalb. wie ist das möglich???
Antworten
Beitrag von Claus S. (1671 Beiträge) am Donnerstag, 28.Juni.2001, 12:09.
@sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
Antworten
Beitrag von Sander (8133 Beiträge) am Donnerstag, 28.Juni.2001, 13:04.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
versuch nochmal den code richtig zu posten, er sieht etwas verworren aus, oder stell ihn als txt irgendwo zu Verfügung. das forum macht manchmal eigenartige sachen
Sander
Antworten
Beitrag von Claus S. (1671 Beiträge) am Donnerstag, 28.Juni.2001, 13:26.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
Antworten
Beitrag von Sander (8133 Beiträge) am Donnerstag, 28.Juni.2001, 13:35.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
hier hast du bei out Zeilenumbrüche drin, das geht nicht. Sowas nur in out <<EOF; machen
<loop range^=0,20 db=bgdat dbranche==$sudbranche | dbranche2==$sudbranche | dbranche3==$sudbranche & dfirmnam~=$sudfirmnam & dstrasse~=$sudstrasse & dtelefon~=$sudtelefon & dtelefax~=$sudtelefax & demail~=$sudemail & durl~=$sudurl & dtyp~=$sudtyp sort^=dbranche,dfirmnam,dstrasse code=perl>
Der Teil wird leider nicht angezeigt und verschoben - beim 2ten loop
aber du weißt wo ich meine
Sander
Antworten
Beitrag von Claus S. (1671 Beiträge) am Donnerstag, 28.Juni.2001, 13:48.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
hallo sander,
habe es jetzt in eine zeile geschrieben und funzt trotzdem nicht :-(
ich sagte ja, in der anderen version, von der ich kopiert habe funzt es ja und da ist der code auch umgebrochen
Antworten
Beitrag von Christoph Bergmann (8110 Beiträge) am Donnerstag, 28.Juni.2001, 13:48.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
...ausserdem solltest Du bei dem langen <loop...> die doppelten Leerzeichen rausmachen: Vor dem "sort" und vor dem "code=perl"
Antworten
Beitrag von Claus S. (1671 Beiträge) am Donnerstag, 28.Juni.2001, 14:20.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
yippiiiaaaaeehhh!!!
es war das überzählige leerzeichen.
wie kann so ein 1 byte grosses nichts so ein chaos anrichten?
Antworten
Beitrag von Christoph Bergmann (8110 Beiträge) am Donnerstag, 28.Juni.2001, 17:38.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
das liegt an dem miserablen parameter-parser der jetzigen baseportal-version ;-)
in der naechsten (beta) ist alles besser, da wäre so ein leerzeichen egal...
Antworten
Beitrag von Christoph Bergmann (8110 Beiträge) am Donnerstag, 28.Juni.2001, 13:20.
Re: @sander oder christoph Re: Hilfe!!! Finde den Fehler nicht!
Antworten
