<% $zimmer->{preis} ? qq() : "" %>

<% my $ort = lc($VERMIETER{ort}); my @bild = split(/\|/, $zimmer->{bild}); $bild[0] ? qq() : -s "../se_data/_filebank/System/Travel/trefferliste/$ort/$VERMIETER{lid}.jpg" ? qq() : qq()%>

<% $TRAVEL{zimmertypen}->{$zimmer->{typ}} %> <% $zimmer->{name} %><% $VERMIETER{betriebsname}; "" %> <% $VERMIETER{sterne} ? qq( ) : ""; %> <% $VERMIETER{telefon} ? qq(Telefon $VERMIETER{telefonvorwahl}/$VERMIETER{telefon} ) : "" %> <% $VERMIETER{fax} ? qq(Telefax $VERMIETER{faxvorwahl}/$VERMIETER{fax} ) : "" %>

<% my %boxen; $boxen{www} = $VERMIETER{www} && ( $VERMIETER{optional} =~ /O|H/ || 1 ) ? qq() : qq(); $boxen{email} = $VERMIETER{email} && ( $VERMIETER{optional} =~ /O|E/ || 1 ) ? qq() : qq(); $boxen{lage} = $VERMIETER{optional} =~ /T/ ? qq() : qq(); $boxen{anfrage} = $VERMIETER{optional} =~ /K/ ? qq() : qq(); $boxen{vevo} = substr($VERMIETER{merkmale},14-1,1) == 1 ? qq() : qq(); qq( $boxen{www} $boxen{email} $boxen{lage} $boxen{anfrage} $boxen{vevo} ); %> <% $VERMIETER{pauschalen} ? $VERMIETER{pauschalen} > 1 ? qq($VERMIETER{pauschalen} Pauschalen) : qq($VERMIETER{pauschalen} Pauschale) : "" %>

ab $zimmer->{preis} €