<% my @bild = split(/\|/,$VERMIETER{bilder}); my $out; my $c = 1; if ( split(/\|/,$VERMIETER{bilder}) > 0 && $VERMIETER{maximg} > 0) { my @bilder = split(/\|/,$VERMIETER{bilder}); foreach my $t ( 1..$VERMIETER{maximg} ) { my $bild = $bilder[$t-1]; $out .= $bild && $VERMIETER{maximg} >= $t ? qq() : qq(); if ( $t == 3 || ($t == $VERMIETER{maximg} && $t < 3) ) { $out .= qq() if $bild[0]; } if ( $c >= 3 ) { $out .= $t == $VERMIETER{maximg} ? qq() : qq(); $c=1 } else {$c++} } } $out; %>

<% my $out; foreach (@{$VERMIETER{merkmale_arrayref}}) { $out .= qq( $_ ) }; $out; %>

<% my $out = $VERMIETER{text}; $out =~ s/\n/ /g; $out; %>