Re: Perl-Script in einer Tabelle aufrufen - 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 Oliver ;-) (439 Beiträge) am Freitag, 30.November.2001, 13:32.
    Re: Perl-Script in einer Tabelle aufrufen


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Marco (840 Beiträge) am Freitag, 30.November.2001, 12:53.
    Perl-Script in einer Tabelle aufrufen

      Hallo,

      ich möchte gerne in einer Tabelle ein Pers-Script aufrufen, daß ein Feld nur dann ausgibt, wenn es auch Inhalt hat. Folgendermaßen habe ich das Perl-Script geschrieben:

      <perl>
 if($Ergebnisse eq "")
 {
 out " ";
 } else
 {
 out "<a href='$Ergebnisse' target='_blank'><img src='http://www.tsv-wietze.de/ergebnisse/TabDatalisticon.gif' border=0></a>";
 }
</perl>

      Es funktioniert aber nicht... kann mir jemand sagen, woran das liegt.

      http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/lsn/tsv/recherche

     Antworten

    Beitrag von Oliver ;-) (439 Beiträge) am Freitag, 30.November.2001, 13:19.
    Re: Perl-Script in einer Tabelle aufrufen

      Wie lautet denn der Quellcode davor und dahinter?

      Übrigens, wenn du "($Ergebnisse ne "")" schreibst kannst du dir das "else" sparen.

      Oliver ;-)

     Antworten

    Beitrag von Marco (840 Beiträge) am Freitag, 30.November.2001, 13:23.
    Re: Perl-Script in einer Tabelle aufrufen

      Hallo Oliver,

      hier ist der Quellcode der Tabelle, in die ich das Perl-Script einbinden möchte:

      <table width=580 border=3 bgcolor=cccccc><td align=center>
<table width=580 padding=3>
<tr><td width=60 bgcolor=cccc99><font face="Trebuchet MS",verdana size=2><b>Datum</b></font><td bgcolor=cccc99><font face="Trebuchet MS",verdana size=2><b>Bericht</b></font><td width=60 bgcolor=cccc99><font face="Trebuchet MS",verdana size=2><b>Ergebnisse</b></td><td width=60 bgcolor=cccc99><font face="Trebuchet MS",verdana size=2><b>Protokoll</b></td></tr>

      <loop db=berichte sort=-Datum>
      <tr><td width=60 valign=top><font face="Trebuchet MS",verdana size=2><b>$Datum</b></font></td>

      <td><font face="Trebuchet MS"verdana size=2><a href="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/lsn/tsv/berichte&Id==$_id">$Ueberschrift</a></font></td>

      <td align=center valign=top>

      <perl>

       if($Ergebnisse eq "")
 {
 out " ";
 } else
 {
 out "<a href='$Ergebnisse' target='_blank'><img src='http://www.tsv-wietze.de/ergebnisse/TabDatalisticon.gif' border=0></a>";
 }

      </perl>

      </td>

      <td align=center valign=top><a href="$Protokoll" target="_blank"><img src="http://www.tsv-wietze.de/ergebnisse/TabDatalisticon.gif" border=0></a></td>


      </tr>
</loop>
</table></table>

      Und so sieht es im Endeffekt aus:

      http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/lsn/tsv/recherche

     Antworten

    Beitrag von Oliver ;-) (439 Beiträge) am Freitag, 30.November.2001, 13:32.
    Re: Perl-Script in einer Tabelle aufrufen

     Antworten

    Beitrag von Christoph Bergmann (8110 Beiträge) am Freitag, 30.November.2001, 13:57.
    Re: Perl-Script in einer Tabelle aufrufen

      Wie Oliver schon richtig meinte, kannst Du im "loop" kein "perl" verwenden, stattdessen kannst Du aber das gesamte "loop" als perl-code ausführen, den HTML-text der dann drin is, musst du mit out <<EOF; ... EOF ausgeben, also komplett sieht das dann so aus (auch mit dem eq/ne/else verbessert):



      <loop db=berichte sort=-Datum code=perl>
out <<EOF;
<tr><td width=60 valign=top><font face="Trebuchet MS",verdana size=2><b>$Datum</b></font></td>

      <td><font face="Trebuchet MS"verdana size=2><a href="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/lsn/tsv/berichte&Id==$_id">$Ueberschrift</a></font></td>

      <td align=center valign=top>
EOF

      if($Ergebnisse ne "")
      {
out "<a href='$Ergebnisse' target='_blank'><img src='http://www.tsv-wietze.de/ergebnisse/TabDatalisticon.gif' border=0></a>";
}

      out <<EOF;
      </td>

      <td align=center valign=top><a href="$Protokoll" target="_blank"><img src="http://www.tsv-wietze.de/ergebnisse/TabDatalisticon.gif" border=0></a></td>

      </tr>
EOF
</loop>

     Antworten

    Beitrag von Marco (840 Beiträge) am Freitag, 30.November.2001, 16:09.
    Re: Perl-Script in einer Tabelle aufrufen

     Antworten


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