use a flat label rather than a structured address, as the positions in the...

use a flat label rather than a structured address, as the positions in the array matter, but the IANA record is flat
parent a3de6605
...@@ -252,14 +252,20 @@ foreach my $tld (@tlds) { ...@@ -252,14 +252,20 @@ foreach my $tld (@tlds) {
# create one if not found # create one if not found
# #
if (!defined($adr)) { if (!defined($adr)) {
$adr = [ 'adr', {}, 'text', [] ]; $adr = [ 'adr', { 'label' => '' }, 'text', [ '', '', '', '', '', '', '' ] ];
push(@{$entities->{$contact}->{'vcardArray'}->[1]}, $adr); push(@{$entities->{$contact}->{'vcardArray'}->[1]}, $adr);
} }
# #
# append the line to the address # append the line to the address
# #
push(@{$adr->[3]}, $value); if (length($adr->[1]->{'label'}) < 1) {
$adr->[1]->{'label'} = $value;
} else {
$adr->[1]->{'label'} .= "\n".$value;
}
} elsif ('phone' eq $key) { } elsif ('phone' eq $key) {
push(@{$entities->{$contact}->{'vcardArray'}->[1]}, ['tel', {}, 'text', $value ]); push(@{$entities->{$contact}->{'vcardArray'}->[1]}, ['tel', {}, 'text', $value ]);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment