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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
<html>
<head>
<title>Embperl Test - Subs and Tables</title>
</head>
<body>
[###############################################################################################]
[$ sub Kurslink $]<a href="epl_ober.htm?id=[+ $rec->{id} +]&bereich_id=[+ $fdat{bereich_id} +]" onMouseOut='hidePopup()'>[$endsub$]
[###############################################################################################]
[$ sub cell $]
[$if !$rec -> {id} $]
<td bgcolor="[+ $bgcol +]" align=center>[- Neulink -]<img border=0 src="/images/leer.gif"><img border=0 src="/images/leer.gif"><img border=0 src="/images/leer.gif"></td>
[$ elsif $fdat{bereich_id} eq 'f' || !$kurs -> {-gebucht} || $xkurs $]
[$if $xkurs $]
<td bgcolor="[+ $bgcol +]" align="[+ $fdat{bereich_id} eq 'f'?'center':'left' +]"> [- Kurslink -]<img border=0 src="[+ $mainrec?"/images/leer2_gelb.gif":($xkurs -> {-gebucht}?"/images/leer_rot.gif":"/images/leer_gelb.gif") +]"></td>
[$else$]
<td bgcolor="[+ $bgcol +]" align="[+ $fdat{bereich_id} eq 'f'?'center':'left' +]"> [- Kurslink -]<img border=0 src="[+ $kurs -> {-gebucht}?"/images/belegt_rot$gifext.gif":"/images/reserv_gelb$gifext.gif" +]"></td>
[$endif$]
[$ elsif $fdat{bereich_id} eq 'b' $]
[- $n = 2 -]
<td bgcolor="[+ $bgcol +]" align=left> <table> <tr>
<td>[- Kurslink -]<img border=0 src="[+ $kurs -> {-gebucht}?"/images/belegt_rot$gifext.gif":"/images/reserv_gelb$gifext.gif" +]"></td>
[$ while ($n--) $]
[-
$banzahl = 1 ;
$sanzahl = 5 ;
-]
[$ if $banzahl > 0 $]
<td bgcolor="[+ $subbgcol = $sanzahl == 0?'#ff0000':($sanzahl < $banzahl?'#ffff00':'#00ff00') +]">[- Kurslink (($sanzahl || 0) . "/$banzahl") -]<small><strong><font face="[+ $fontface +]" color="[+ $xkurs?$subbgcol:($subbgcol eq '#ff0000'?'#ffffff':'#000000') +]"> [+ $brec -> {bereichkurz} +] </td>
[$endif$]
[$endwhile$]
</tr> </table> </td>
[$ endif $]
[$endsub $]
[###############################################################################################]
[-
$rec = { id => 1 } ;
$kurs = { -gebucht => 1 } ;
$brec = { id => 2, bereichkurz => 'bu' } ;
$fdat{bereich_id} = 'b' ;
$bgcol = '#1' ;
$gifext = 'xxx' ;
$l = 2 ;
-]
<table>
<tr>
[$ while ($l-- > 0) $]
[- cell -]
[$endwhile$]
</tr>
</table>
</body>
</html>
|
