[- use Spreadsheet::ParseExcel; $fehler = 'NOP _ '; $ort = 'leer'; $ortname = "leer"; $ortanschr1 = "leer" ; $ortanschr2 = "leer" ; if (($ENV{REQUEST_METHOD} eq 'GET') and ($ENV{QUERY_STRING} ne '') and (length($ENV{QUERY_STRING}) < 50)){ $ort =$ENV{QUERY_STRING}; } $file = '/home/webupd/termine.xls'; my $oExcel = new Spreadsheet::ParseExcel; my $oBook = $oExcel->Parse($file); if (! $oBook) {$fehler .= "datei nicht auf"}; $oWkS = $oBook->{Worksheet}[0]; $letztermonat = 'nix'; $anzliste = 0; for $i (0 .. 200) { @zeile = (); for $j (0 .. 200) { $oWkC = $oWkS->{Cells}[$i][$j]; $zelle = 'NA'; if ( $oWkC ) { $zelle = $oWkC->Value; } $zelle =~ s/^ +//g; $zelle =~ s/ +$//g; if ($zelle eq '') {$zelle = 'NA'; } $zeile[$j] = $zelle; } if (($zeile[0] eq $ort) or ($zeile[0] eq 'alle')) { $ort[$anzliste] = $ort; $monat[$anzliste] = $zeile[1] ; $termin[$anzliste] = $zeile[3] ; $foot1 = $zeile[4] ; $foot1 =~ s//\\>/g; $foot1 =~ s/EUR/\\€/g; $text1[$anzliste] = $foot1 ; $termin[$anzliste] =~ s/NA//; $text2 = ''; for $j (5 .. 200) { if ($zeile[$j] ne 'NA') { $foo = $zeile[$j]; $foo =~ s/--START/

/i; $foo =~ s/^-/

/; $foo =~ s//\\>/g; if ($foo =~ /ul\\>/) { $text2 = $text2 . $foo; } else {$text2 = $text2 . $foo . '\'; } } } $text2 =~ s/EUR/\\€/g; $text2[$anzliste] = $text2 ; $anzliste = $anzliste + 1; } } $anzliste = $anzliste - 1; $oWkS = $oBook->{Worksheet}[1]; for $i (0 .. 20) { @zeile = (); for $j (0 .. 200) { $oWkC = $oWkS->{Cells}[$i][$j]; $zelle = 'NA'; if ( $oWkC ) { $zelle = $oWkC->Value; } $zelle =~ s/^ +//g; $zelle =~ s/ +$//g; if ($zelle eq '') {$zelle = 'NA'; } $zeile[$j] = $zelle; } if ($zeile[0] eq $ort) { $ortname = $zeile[1]; $ortanschr1 = $zeile[2] ; $text2 = ''; for $j (3 .. 200) { if ($zeile[$j] ne 'NA') { $foo = $zeile[$j]; $foo =~ s/--START/

/i; $foo =~ s/^-/

/; $foo =~ s//\\>/g; if ($foo =~ /ul\\>/) { $text2 = $text2 . $foo; } else {$text2 = $text2 . $foo . '\'; } } } $ortanschr2 = $text2 ; } } -] [-$escmode=3; -] Pflanzen-Kölle

[$ if $ort eq 'dallgow' $] [$ else $] [$ endif $] [$ if $ort eq 'teltow' $] [$ else $] [$ endif $] [$ if $ort eq 'borgsdorf' $] [$ else $] [$ endif $] [$ if $ort eq 'dahlwitz' $] [$ else $] [$ endif $] [$ if $ort eq 'wildau' $] [$ else $] [$ endif $] [$ if $ort eq 'untermenzing' $] [$ else $] [$ endif $] [$ if $ort eq 'unterhaching' $] [$ else $] [$ endif $] [$ if $ort eq 'zuffenhausen' $] [$ else $] [$ endif $] [$ if $ort eq 'fellbach' $] [$ else $] [$ endif $] [$ if $ort eq 'neckargarten' $] [$ else $] [$ endif $] [$ if $ort eq 'wiesbaden' $] [$ else $] [$ endif $]

[-$escmode=3; -] [$ if $ort eq 'leer' $]

Termine

Sie sollen sich bei uns wohlfühlen!

Dazu bieten wir jeden Monat in unseren Filialen tolle Aktionen für die ganze Familie.
Für jeden ist etwas dabei: Ausstellungen, Workshops, Fachvorträge und Kurse für die Großen, Basteln, Malen und Spaß für die Kleinen.
Schauen Sie doch mal rein!

Berlin-Brandenburg:

Dallgow-Döberitz

Teltow

Borgsdorf

Dahlwitz-Hoppegarten

Wildau

München:

Untermenzing

Unterhaching

Stuttgart:

Stuttgart-Zuffenhausen

Fellbach

Heilbronn:

Im Neckargarten

Wiesbaden:

Hagenauer Straße

[$ else $]

Termine

[+$ortname+]

[$ foreach $i (0 .. $anzliste) $] [$ if ($monat[$i] ne $letztermonat) $] [- $imgname = 'img/monat_' . $monat[$i] . '.gif'; $letztermonat = $monat[$i]; -]

[$ endif $] [-$escmode=3; -] [+$termin[$i]+]
[$ if ($text1[$i] ne 'NA') $] [+$text1[$i]+]
[$ endif $] [+$text2[$i]+]

[$ endforeach $]

Wir freuen uns über Ihre Anmeldung. Unser Kundenservice gibt Ihnen auch gerne weitere Auskunft zu den Veranstaltungen.

Wir wünschen Ihnen viel Spaß!

[+$ortanschr1+]
[+$ortanschr2+]
nach oben

[$ endif $]

Termine

Sie sollen sich bei uns wohlfühlen!

Im Neckargarten Wiesbaden:

Termine

[+$ortname+]

Im Neckargarten

Wiesbaden: