diff --git a/gedcom b/gedcom index a1b2cea..95fb2e0 100755 --- a/gedcom +++ b/gedcom @@ -11693,6 +11693,8 @@ sub get_all_occupations $occupation = (($person->sex() eq 'M') ? 'Lehrer' : 'Lehrerin'); } elsif($occupation =~ /(.+)\sFarmer/) { $occupation = (($person->sex() eq 'M') ? 'Landwirt' : 'Landwirtin'); + } elsif($occupation eq 'Farmer') { + $occupation = (($person->sex() eq 'M') ? 'Bauer' : 'Bauerin'); } $occupation =~ s/retired/im ruhestand/i; $occupation =~ s/self-employed/slbststa\N{U+00E4}ndig/;