Skip to content

Commit

Permalink
Static pages had the relationship printed twice
Browse files Browse the repository at this point in the history
  • Loading branch information
nigelhorne committed Jun 5, 2024
1 parent 97a613f commit e487b84
Showing 1 changed file with 8 additions and 9 deletions.
17 changes: 8 additions & 9 deletions ged2site
Original file line number Diff line number Diff line change
Expand Up @@ -3096,17 +3096,14 @@ sub print_person
$article = ' the';
}
my $myname = $me->as_string(nee => 1);
print $html "$article $relationship of ",
'<a href="', make_filename_from_person(person => $me), '">',
wide_to_html($myname),
$bio = "$article $relationship of " .
'<a href="' . make_filename_from_person(person => $me) . '">' .
wide_to_html($myname) .
'</a>';
# print $xml " the $relationship of ",
# '&lt;a href="?page=people&amp;home=1"&gt;',
# $me->as_string(nee => 1),
# '&lt;/a&gt;';
$bio = "$article $relationship of " .
'<a href="?page=people&home=1">' .
"$myname</a>";
$phrase->append("$article $relationship of " .
'<a href="?page=people&home=1">' .
"$myname</a>");
Expand Down Expand Up @@ -5772,8 +5769,10 @@ sub print_person
$residencestring =~ s/(.+), (his|her) /$1 and $2 /;
}
if(scalar(keys %living_with)) {
$Data::Dumper::Maxdepth = 2;
print STDERR __LINE__, ": TODO ($rdate): ", Data::Dumper->new([\%living_with])->Dump();
if($opts{'w'}) {
$Data::Dumper::Maxdepth = 2;
print STDERR __LINE__, ": TODO ($rdate): ", Data::Dumper->new([\%living_with])->Dump();
}
if($living_with{'daughters'}) {
# TODO: more than one daughter
my @daughters = @{$living_with{'daughters'}};
Expand Down Expand Up @@ -11176,7 +11175,7 @@ sub notes

$ufinder->find(\$rc);

if(($language eq 'English') && defined($rc)) {
if($language eq 'English') {
if($ENV{'LANG'} =~ /^en_US/) {
return Lingua::EN::ABC::b2a($rc);
} elsif($ENV{'LANG'} =~ /^en_CA/) {
Expand Down

0 comments on commit e487b84

Please sign in to comment.