#! /usr/bin/perl
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib qw(./perllib);
use HTML::Template; # musst Du Dir evtl. noch installieren
 
my $cgi = CGI->new(); 
my %params = $cgi->Vars();     
print $cgi->header(-type => 'text/html');

my $template = HTML::Template->new(filename => '../booking.tmpl');

my @zimmertyp = qw(Einzelzimmer Doppelzimmer Suite Präsidentensuite);
my $loop = [];

foreach(@zimmertyp){
  my $selected = 0;
  $selected = 1 if($_ eq 'Doppelzimmer');
  push(@{$loop},{ZIMMER => $_, SEL => $selected});
}

my $outer = [];
for(1..3){
  push(@$outer,{SELNR => 'select'.$_, LOOP => $loop});
}

$template->param(OUTER => $outer);

print $template->output();