<% $TRAVEL{remember} = qq(feld_von_epoche feld_bis_epoche intage off_zeitraum filter_personen); ""; $in{datum} = $in{feld_von_epoche} unless $in{datum}; return qq(

Für diesen Vermieterbetrieb ist kein Belegungsplan verfügbar.
Aktuelle Belegunszeiträume können Sie direkt beim Vermieter erfragen. 

) if $TRAVEL{optional} =~ /P/ || $VERMIETER{belegungsplan} == 9; my $auswahl; require SE::Lib::Time; my $jetzt = Monatsanfang(time); for (my $t = $jetzt; $t <= $jetzt + (60*60*24*356*2); $t = $t + (60*60*24*31) ) { $t = Monatsanfang($t); my $s = "SELECTED" if Monat( $in{datum} ) eq Monat( $t ) && Jahr( $in{datum} ) eq Jahr( $t ); $auswahl .= qq() . Monat($t) . " " . Jahr($t) . qq(); } my $hidden; $hidden = qq() if $in{_travel_off_detail_frame}; $hidden .= qq(\n) unless $PAGE{id} eq 'rotzler_wohnungen' && $SE{app} eq "pages.dreamway.net"; # Legende my $legende_bf = qq(     $LANG{Betriebsferien}   ); my $legende .= qq(

$legende_bf

$LANG{Freigemeldet}

$LANG{Belegt}, $LANG{nicht_freigemeldet}

); my $out; $out .= qq( $legende

$hidden $auswahl

); require SE::Travel::Freimeldungen; my $freimeldungen = htmlFreimeldungen( server => $value[43], betrieb => $in{gid}, start => $in{datum}, view => ( $VERMIETER{belegungsplan} == 1 ? "kategorie" : $VERMIETER{belegungsplan} == 2 ? "kategorie_anzahl" : undef ), ); print STDERR $freimeldungen; $out .= qq(

$freimeldungen

); return $out; %>