<% return &html_insert("::_travel/_match_default.html") if $in{gid}; sub createPauschale { return qq(

$_[0]->{pauschalen_name}

${ \&createLeistungen($_[0]) } $LANG{Gueltig}: $_[0]->{pauschalen_von} - $_[0]->{pauschalen_bis}
); sub createLeistungen { my $pers = getLANG("fuer_x_Personen", [$_[0]->{pauschalen_personen}]) if $_[0]->{pauschalen_personen}; if ( $_[0]->{pauschalen_sonderangebot_von_epoche} <= time && $_[0]->{pauschalen_sonderangebot_von_epoche} > 0 && $_[0]->{pauschalen_sonderangebot} > 0 && $_[0]->{pauschalen_sonderangebot} < $_[0]->{pauschalen_preisab} && $_[0]->{pauschalen_personen} > 0 ) { my $pr_old = getLANG("ab_x_euro", [$_[0]->{pauschalen_preisab}]); my $pr_new = getLANG("ab_x_euro", [$_[0]->{pauschalen_sonderangebot}]); return qq( $_[0]->{pauschalen_uebernachtungen} $LANG{Uebernachtungen}
$pr_old/$LANG{Person}
$pr_new $pers
); } else { my $pr = getLANG("ab_x_euro", [$_[0]->{pauschalen_preisab}]); return qq( $_[0]->{pauschalen_uebernachtungen} $LANG{Uebernachtungen}
$pr $pers
); } } } sub createImage { require SE::Filer::Dateien; my $bild = getsizedImg( url => "$_[0]->{pauschalen_bild}", size => 200 ); my $bild2 = getsizedImg( url => "$_[0]->{bild}", size => 200 ); #die debug($_[0]) if $_[0]->{gid} eq "57"; return $bild && ( !$_[0]{tarif} || $_[0]{tarif} > 1 || $_[0]{sondertarif} || $SE{app} eq "bodenseeferien.dreamway.net") ? qq(Bild der entsprechenden Pauschale) : $bild2 && ( !$_[0]{tarif} || $_[0]{tarif} > 1 || $_[0]{sondertarif} || $SE{app} eq "bodenseeferien.dreamway.net") ? qq(Bild der entsprechenden Unterkunft) : qq( ); } sub createStars { return ($_[0]->{sterne} ? viewSterne( sterne => $_[0]->{sterne}, xhtml => 1 ) : "") . ($_[0]->{sterne2} ? viewSterne( sterne => $_[0]->{sterne2}, xhtml => 1 ) : ""); } $VERMIETER{travelOpen} = $TRAVEL{"open"}; $TEMP{matchList} = [] unless exists $TEMP{matchList}; push(@{$TEMP{matchList}}, {%VERMIETER}); if ($TRAVEL{"currentMatchOnPage"} == $TRAVEL{"totalMatchesOnPage"}) { my $out; while (my $vermieter = shift @{$TEMP{matchList}}) { my $c = 1; my $pauschalen = &createPauschale($vermieter, $c); while (@{$TEMP{matchList}} > 0 && $TEMP{matchList}->[0]->{gid} eq $vermieter->{gid}) { $c++; $pauschalen .= &createPauschale(shift @{$TEMP{matchList}}, $c); } $pauschalen = $in{gid} ? qq() : qq(
$pauschalen
); $out .= qq(
  • ${ \&createImage($vermieter) }
    $pauschalen
    $vermieter->{betriebsname}
    $TRAVEL{kategorien}->{$vermieter->{kategorie}} ${ \&createStars($vermieter) }
    $vermieter->{plz} $vermieter->{ort} $vermieter->{ortsteil}
    • ); } return $out; } return; %>