<% my $hintergund = $VERMIETER{bild} ? qq(bgcolor="#f4f4f4") : " "; my $prepath = getBilderURLBase(); my $bild = $VERMIETER{pauschalen_bild} ? qq() : $VERMIETER{bild} ? qq() : qq(); my $sterne = viewSterne( sterne => $VERMIETER{sterne} ); my $info; if ($VERMIETER{pauschalen_sonderangebot_von_epoche} < time && $VERMIETER{pauschalen_sonderangebot_von_epoche} > 0 && $VERMIETER{pauschalen_sonderangebot} > 0 && $VERMIETER{pauschalen_sonderangebot} < $VERMIETER{pauschalen_preisab} ) { $info .= qq(ab $VERMIETER{pauschalen_preisab} € ); $info .= qq(jetzt ab $VERMIETER{pauschalen_sonderangebot} € - Sie sparen ); $info .= sprintf("%2d\%",($VERMIETER{pauschalen_preisab} - $VERMIETER{pauschalen_sonderangebot}) / $VERMIETER{pauschalen_preisab} * 100); $info .= qq(); } else { $info .= $VERMIETER{pauschalen_personen} == 1 ? " für 1 Person" : " für $VERMIETER{pauschalen_personen} Personen"; $info .= qq( ab $VERMIETER{pauschalen_preisab} €); } my $out; if ( $TEMP{last_gid} == $VERMIETER{gid} ) { $out = qq( $VERMIETER{pauschalen_name} ($VERMIETER{pauschalen_von} - $VERMIETER{pauschalen_bis}, $info) ); } else { my @vonbis; foreach my $i (2..5) { push(@vonbis, qq($LANG{Gueltig}: $VERMIETER{"pauschalen_von$i"} - $VERMIETER{"pauschalen_bis$i"}
)) if ( $VERMIETER{"pauschalen_von$i"} ne "01.01.1970" && $VERMIETER{"pauschalen_bis$i"} ne "01.01.1970" ); } $out = qq(
$bild $VERMIETER{pauschalen_name}
$VERMIETER{pauschalen_uebernachtungen} $LANG{Uebernachtungen} $info
$LANG{Gueltig}: $VERMIETER{pauschalen_von} - $VERMIETER{pauschalen_bis}
@vonbis
  $VERMIETER{betriebsname}
$TRAVEL{kategorien}->{$VERMIETER{kategorie}} $sterne
$VERMIETER{plz} $VERMIETER{ort} $VERMIETER{ortsteil}
); } $TEMP{last_gid} = $VERMIETER{gid}; return $out; %>