%Image::ExifTool::UserDefined = (
    'Image::ExifTool::Composite' => {
        WebCaptionTag => {
            Desire => {
                0 => 'XMP:Coverage',
                #previously:      0 => 'XMP:Description',
                1 => 'XMP:Location',
                2 => 'XMP:City',
                3 => 'XMP:Country',
                4 => 'XMP:Creator',
                # Harald 20-10-2022 changed to'IPTC:DateCreated'
                # as this is specified in embedded data mapping in AB for download.
                5 => 'IPTC:DateCreated',
                # 5 => 'XMP:CreateDate',
            },
            ValueConv => q{
                my (@loc, @list);
                defined $val[$_] and push @loc, $val[$_] foreach 1..3;
                pop @loc if @loc > 1 and $loc[-1] eq $loc[-2];
                if (defined $val[4]) {
                    $val[4] = join(', ', @{$val[4]}) if ref $val[4] eq 'ARRAY';
                    push @list, "Photo by $val[4]" 
                }
                if (defined $val[5]) {
                    $_ = "$val[5] 00:00:00";
                    DateFmt('%b-%Y');
                    push @list, $_;
                }
                my $prefix = defined($val[0]) ? "$val[0], " : '';
                $prefix .= join(', ', @loc) . '. ' if @loc;
                $prefix .= join(', ', @list);
                $prefix =~ s/  +/ /g;
                $prefix =~ s/ $//;
                return $prefix;
            },
        },
    },
);