Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]141[/thread]

Problem mit Scrollscript: Zeigt nur letzten Eintrag an (Seite 2)



<< |< 1 2 >| >> 13 Einträge, 2 Seiten
Dubu
 2004-01-13 19:08
#856 #856
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Na gut, ich versuch's mal. :)
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
...
}else{

    print <<EOT1;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>Titel</title>
</head>
<table width="100%" cellpadding="2" cellspacing="1" border="0" class="forumline">
  <tr>
    <td class="catHead" height="25"><span class="genmed"><b>Events</b></span></td>
  </tr>
  <tr>
    <td class="row1" align="left"><span class="gensmall">
      <marquee id="recent_topics" behavior="scroll" direction="up" height="200" scrolldelay="100" scrollamount="2">
      <!-- BEGIN recent_topic_row -->
EOT1
              
    foreach (sort { $a <=> $b } @events) {
        my ($beginn, $name, $veranstalter, $titel, $ort, $location, $am, $art, $mail, $url, $sonstiges) = split(/\|/,$_);

        # kommt hier nicht noch irgendwo $url hinein? Und woher kommt $urlcgi?
        print qq~&raquo;
          <a href="$urlcgi/event.cgi?ev_day=$ev_day&amp;ev_month=$ev_month&amp;ev_year=$ev_year"
          onMouseOver="document.all.recent_topics.stop()"
          onMouseOut="document.all.recent_topics.start()"
          target=" _blank">$titel</a><br /> by
          $veranstalter<br /><br />
        ~;
    }

    print <<EOT2;
    <!-- END recent_topic_row -->
    </marquee>
    </span></td>
    </tr>
  </table>    
<br>
</body>
</html>
EOT2

    exit;
};

Dabei habe ich jetzt beide oben von mir erwaehnten Moeglichkeiten benutzt, fuer die laengeren print-Anweisungen Text ohne "..." zu verwenden.

Was mich aber wundert (s. Kommentar im Code) ist, dass nirgends $url benutzt wird. Auf die sollte doch wohl im <marquee> verwiesen werden, oder?
Tom
 2004-01-13 19:28
#857 #857
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Danke werde es probieren, $url brauch ich da nicht, bezieht sich auf die Webseiteneingabe des Benutzers.

$urlcgi kommt aus der info.cgi

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
Tom
 2004-01-13 19:34
#858 #858
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
@Dubu

DANKE, DANKE, DANKE :D funktioniert wunderbar !!!

Tom\n\n

<!--EDIT|Tom|1074015308-->
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
<< |< 1 2 >| >> 13 Einträge, 2 Seiten



View all threads created 2004-01-11 20:58.