<% #################################################################################### ### Ausnahme fuer allgaeu.info ############################################# my @ignorieren; push (@ignorieren, "Wiederverkäufer-Angebot") unless (($SE{app} eq "allgaeu.info") && ($PAGE{id} eq "amd_sales")); ### Ende Ausnahme ########################################################## #################################################################################### # require SE::Travel::Infoseiten; # my $out = SE::Travel::Infoseiten::generateInfoseitenMenu( { gid => $in{gid}, aktiv => $in{infoseite} } ); # # return $out ? qq( #
# $out #
#
# ) : ""; ""; %> <% ###################### BILDBLOCK ########################################## # my $prepath = $SE{app} =~ /^(allgaeu\.info|allgaeu-suedbest\.de)$/ ? "http://www.oberallgaeu.de" : ""; my @bild = split(/\|/, $VERMIETER{bilder}); my $out; my $maximg = $VERMIETER{maximg2} || $VERMIETER{maximg}; $maximg = 9 if ( !$VERMIETER{tarif} || $VERMIETER{tarif} > 1 ); $maximg = 0 if $VERMIETER{tarif} == 1; $maximg = 9 if $VERMIETER{sondertarif}; require SE::Filer::Dateien; my $prepath = getBilderURLBase(); if (@bild > 0 && $maximg > 0 && ($bild[$t] =~ "filer")) { foreach my $t ( 0..8 ) { my $class = $t == 0 ? "active" : "inactive"; my $bild = getsizedImg( url => "$bild[$t]", size => 400 ); $out .= $bild[$t] && ($t < $maximg) ? qq(
) : ""; } } elsif (@bild > 0 && $maximg > 0 && ($bild[$t] !~ "filer")) { foreach my $t ( 0..8 ) { my $class = $t == 0 ? "active" : "inactive"; $out .= $bild[$t] && ($t < $maximg) ? qq(
) : ""; } } else { $out .= qq() ; } return $out ? qq(
$out
) : ""; %>
<% ###################### Merkmale ########################################## my %groups; foreach ( @{$VERMIETER{merkmale_hashref}} ) { push(@{$groups{"$_->{gruppe}"}}, $_); } my $out = "); return $out; %> <% if( $SE{app} eq "mein-schwarzwald.de" ) { qq( Hinweis: * = max 700m vom Haus entfernt ); } %>