Commit 19fac474 authored by jake%acutex.net's avatar jake%acutex.net

Refixing bug 95875 - The code that breakes the typed in CC list into individual…

Refixing bug 95875 - The code that breakes the typed in CC list into individual lists is now slightly more robust and allows perl to handle the splitting more efficiently (by using a space as the delimiter). r= myk@mozilla.org
parent a6f587a4
......@@ -582,15 +582,15 @@ if (defined $::FORM{newcc} || defined $::FORM{removecc} || defined $::FORM{massc
}
if ($cc_add) {
$cc_add =~ s/^[\s,]+//; # Remove leading delimiters.
foreach my $person ( split(/[\s,]+/, $cc_add) ) {
$cc_add =~ s/[\s,]+/ /g; # Change all delimiters to a single space
foreach my $person ( split(" ", $cc_add) ) {
my $pid = DBNameToIdAndCheck($person);
$cc_add{$pid} = $person;
}
}
if ($cc_remove) {
$cc_remove =~ s/^[\s,]+//; # Remove leading delimiters.
foreach my $person ( split(/[\s,]+/, $cc_remove) ) {
$cc_remove =~ s/[\s,]+/ /g; # Change all delimiters to a single space
foreach my $person ( split(" ", $cc_remove) ) {
my $pid = DBNameToIdAndCheck($person);
$cc_remove{$pid} = $person;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment