HTML table tag in Embperl

[+ $c[$row][$col] +]

$tabmode = default

Display an two dimensional array with one, two and three columns !
Please take a look at the source in your browser to see the difference
[- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;
$a[1][[0] = '2/1' ;
$a[1][[1] = '2/2' ;
$a[2][[0] = '3/1' ;
$a[2][[1] = '3/2' ;
$a[2][[2] = '3/3' ;

$tabmode = default

[+ $a[$row][$col] +]

1 | 2 | 3
--- | --- | ---
[+ $a[$row][$col] +]

[+ $b[2][$col] +]
[+ $a[$row][$col] +]

[+ $b[$row][$col] +]
[+ $a[$row][$col] +]

[- undef @regs ; undef @kats ; $regs[0]{Id} = 'Pfalz' ; $regs[1]{Id} = 'Rheinhessen' ; $kats[0]{Id} = 'Kultur' ; $kats[1]{Id} = 'Sport' ; -]

[+$regs[$row]{Id}+]
[+$kats[$row]{Id}+]

[- $kats[2]{Id} = 'Veranstaltungen' ; $kats[3]{Id} = '' ; -]

[- $cmp = $regs[$row]{Id} -] [$if ($cmp || '') ne '' $] [+$regs[$row]{Id}+] [$endif$]
[- $cmp = $kats[$row]{Id} -] [$if ($cmp || '') ne '' $] [+$kats[$row]{Id}+] [$endif$]

$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4

[- $tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 -]

[+ $a[$row][$col] +]

$tabmode=1 + 32 ;

[- $tabmode=1 + 32 ; -]

[+ $a[$row][$col] +]

optDisableTableScan is now: [+ $optDisableTableScan +]
optDisableTableScan is set now to: [+ $optDisableTableScan = 1 +]
optDisableTableScan is now: [+ $optDisableTableScan +]

[+ $a[$row][$col] +]

optDisableTableScan is now: [+ $optDisableTableScan +]
optDisableTableScan is set now to: [+ $optDisableTableScan = 0 +]
optDisableTableScan is now: [+ $optDisableTableScan +]

[+ $a[$row][$col] +]