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

git-svn-id: svn://10.0.0.236/trunk@69887 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
donm%bluemartini.com 2000-05-15 22:15:07 +00:00
parent e34bf3411c
commit 30fc3658c1

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;