<% $LANG{Gastgeber} %>
<% $VERMIETER{betriebsname} %>
<% viewSterne( sterne => $VERMIETER{sterne}, href => "index.shtml?quartier_sterne" ); %> <% "$VERMIETER{vorname} $VERMIETER{nachname}" %>
<% $VERMIETER{strasse} %> <% $VERMIETER{hausnummer}%>
<% $VERMIETER{plz}%> <% $VERMIETER{ort}%><% $VERMIETER{ortsteil} ? qq(-$VERMIETER{ortsteil}) : "" %> 		<% $VERMIETER{telefon} ? qq($VERMIETER{telefonvorwahl}/$VERMIETER{telefon}
) : "" %> <% $VERMIETER{mobil} ? qq($VERMIETER{mobilvorwahl}/$VERMIETER{mobil}
) : "" %> <% $VERMIETER{fax} ? qq($VERMIETER{faxvorwahl}/$VERMIETER{fax}
) : "" %> 		<% $VERMIETER{www} && ( $VERMIETER{optional} =~ /O|H/ ) ? qq(Homepage) : "" %>
<% $VERMIETER{email} && ( $VERMIETER{optional} =~ /O|E/ ) ? qq(Email) : "" %>
 
<% my $out; my @tabs = ( { text => $LANG{Information}, id => "info" }, { text => $LANG{Preise}."/".$LANG{Details}, id => "zimmer" } ); push @tabs, { text => $LANG{Quartier}, id => "zimmerinfo" } if $in{do} eq "zimmerinfo"; push @tabs, { text => $LANG{Belegung}, id => "belegung" } if $TRAVEL{optional} !~ /P/; push @tabs, { text => $LANG{Pauschalen}, id => "pauschalen" } if $TRAVEL{optional} =~ /A/; # push @tabs, { text => "Pauschalen", id => "pauschalen" } if $VERMIETER{pauschalen} > 0; push @tabs, { text => $LANG{Anfrage}, id => "kontakt" } if $TRAVEL{optional} =~ /K/ && $VERMIETER{email} =~ /\@/; $in{do} = "info" unless $in{do}; foreach my $tab (@tabs) { my $class = $in{do} eq $tab->{id} ? "barON" : "barOFF" ; $out .= qq(); } $out; %>
$tab->{text} 
<% use SE::Travel::Infoseiten; my @infoseiten = SE::Travel::Infoseiten::getInfoseitenArray($in{gid},"seite"); return "" unless @infoseiten; return "" unless $in{do} eq "info"; my $out; my $html_infoseite; $out .= qq(
    ); if ( $in{infoseite} eq "" ) { $out .= qq(
  • Details
    • ); } else { $out .= qq(
  • $LANG{Details}
    • ); } foreach my $i (@infoseiten) { next unless $i->{data} =~ /\w/; if ( $i->{id} == $in{infoseite} ) { $out .= qq(
  • $i->{name}
    • ); @value = (); @value = split /\|/,$i->{data}; $GFXDIR = "se_data/_filebank/"; # Jetzt kommt die Vorschau... my $vorlage = "_seite_$i->{vorlage}.html"; $html_infoseite = -s "${appdir}/_templates/_travel/$vorlage" ? &html_insert("${appdir}/_templates/_travel/$vorlage") : &html_insert("$SE::SEPATH/data/templates/_travel/$vorlage"); } else { $out .= qq(
  • $i->{name}
    • ); } } $out .= qq(
); $out .= qq(
$html_infoseite
) if $html_infoseite; return $out; %>