|
);
my $html_merkmale;
foreach ( @{$VERMIETER{merkmale_hashref}} ) {
if ( $head ne $_->{gruppe} ) {
$html_merkmale .= qq( |
| $_->{gruppe} |
);
$html_merkmale .= qq( |
);
}
my $mm = $_->{text} ? qq($_->{name}) : qq($_->{name});
$html_merkmale .= qq(| » $mm |
);
$head = $_->{gruppe};
};
$body .= qq(
);
$body .= qq(
);
if ($VERMIETER{ort2}) {
my $vwad;
$vwad .= qq($VERMIETER{firma2}
) if $VERMIETER{firma2};
$vwad .= qq($VERMIETER{anrede2} $VERMIETER{vorname2} $VERMIETER{nachname2}
) if $VERMIETER{vorname2} || $VERMIETER{nachname2};
$vwad .= qq($VERMIETER{strasse2} $VERMIETER{hausnummer2}
) if $VERMIETER{strasse2};
$vwad .= qq($VERMIETER{plz2} $VERMIETER{ort2} $VERMIETER{ortsteil2}
) if $VERMIETER{ort2};
$vwad .= qq(Telefon $VERMIETER{telefonvorwahl2} $VERMIETER{telefon2}
) if $VERMIETER{telefon2};
$vwad .= qq(Telefon $VERMIETER{mobilvorwahl2} $VERMIETER{mobil2}
) if $VERMIETER{mobil2};
$vwad .= qq(Fax $VERMIETER{faxvorwahl2} $VERMIETER{fax2}
) if $VERMIETER{fax2};
$vwad .= qq(Email $VERMIETER{email2}
) if $VERMIETER{email2} && $VERMIETER{optional} =~ /O|E/;
$body .= qq(| Eigentümer / Verwalter |
| $vwad | );
}
if ( $VERMIETER{optional} =~ /T/ && $VERMIETER{text} ) {
my $text = $VERMIETER{text}; $text =~ s/\n/
/g; $text =~ s/([\*\-\.]{15})//g;
$body .= qq(
| Informationen des Gastgebers |
| $text |
);
}
$body .= qq(
|
);
return qq() . $body . qq(
);
%>