Revision 963c5048
Von Sven Schöling vor etwa 16 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 121 | 121 |
# kl?ren, ob $form->{company_street|_address} gesetzt sind
|
| 122 | 122 |
if ($form->{address} ne '') {
|
| 123 | 123 |
my $temp = $form->{address};
|
| 124 |
$temp =~ s/\\n/<br \/>/;
|
|
| 124 |
$temp =~ s/\n/<br \/>/; |
|
| 125 | 125 |
($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
|
| 126 |
$form->{co_city} =~ s/\\n//g;
|
|
| 126 |
$form->{co_city} =~ s/\n//g;
|
|
| 127 | 127 |
} |
| 128 | 128 |
|
| 129 | 129 |
|
| 130 | 130 |
my $address_given = |
| 131 |
($form->{co_street} ne ''
|
|
| 132 |
and ( |
|
| 133 |
$form->{co_zip} ne ''
|
|
| 134 |
or $form->{co_city} ne ''
|
|
| 135 |
) |
|
| 136 |
) |
|
| 131 |
($form->{co_street} && ($form->{co_zip} || $form->{co_city}))
|
|
| 137 | 132 |
? qq|$form->{co_street}<br>|
|
| 138 | 133 |
. qq|$form->{co_street1}<br>|
|
| 139 | 134 |
. qq|$form->{co_zip} $form->{co_city}|
|
Auch abrufbar als: Unified diff
Adressenfix