<% $TEMP{betrieb} = getBetriebe( id => $in{gid} ); ""; %>
%%% $TEMP{betrieb}->{betriebsname} %%% FREIMELDUNG
Zimmer %%% $TEMP{betrieb}->{lid} %%%   Zimmer ZID %%% $TEMP{betrieb}->{gid} %%%  
Betrieb %%% $TEMP{betrieb}->{betriebsname} %%%  
<% my $out; my @monate = ( "Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember" ); for (my $y=2003; $y<=2005; $y++) { $out .= qq(); foreach my $monat (@monate) { $out .= qq(); for (my $d=1; $d<=31; $d++) { $out .= qq(); } $out .= qq(); } } $out; %>
DIE FREIMELDUNGEN $y
$monat$d

Bitte bei Bedarf einfach kopieren und für ein anderes Zimmer ausfüllen