my $htc = HTML::Template::Compiled->new(
            filename          => "$datadir/template/termine.html",
            tagstyle          => [ qw(+php) ],
            loop_context_vars => 1,
            use_expressions => 1,
        );
        my @row_names = qw( Datum Zeit Ort Veranstaltung);

        foreach my $i ( 0 .. @data - 1 ) {
            my ( $t ) = $data[ $i ]{ Veranstaltung } =~ s/\\n/\n/g;
            $textile =
              Text::Textile->new( disable_html => 1, flavor => 'html' );
            if ( $textile ) {
                $data[ $i ]{ Veranstaltung } =
                  $textile->process( $data[ $i ]{ Veranstaltung } );
            }
            else {
                warn( "$PACKAGE: Problem with Textile in Code : $t" );
                last;
            }
        }

        $htc->param(
            termine => {
                column_names => \@row_names,
                data         => \@data
            }
        );
        $str = $htc->output();