bug 39329 "Mail to everyone on this list" address list generated wrong when using despot

This commit is contained in:
donm%bluemartini.com 2000-05-15 22:15:07 +00:00
parent b30e02e6ea
commit 03030a965e

View File

@ -200,7 +200,15 @@ my $result= &query_checkins( %mod_map );
my %w;
for my $i (@{$result}) {
$w{"$i->[$::CI_WHO]\@$userdomain"} = 1;
my $aname=$i->[$::CI_WHO];
# the else is for compatibility w/ something that uses the other format
# the regexp is probably not the best, but I think it might work
if ($aname =~ /%\w*.\w\w+/) {
my $tmp = join("@",split("%",$aname));
$w{"$tmp"} = 1;
}else{
$w{"$i->[$::CI_WHO]\@$userdomain"} = 1;
}
}
my @p = sort keys %w;