}
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;
}
}
-CheckFormFieldDefined(\%::FORM, 'knob', "check that \"Leave as...\" was selected.");
+CheckFormFieldDefined(\%::FORM, 'knob');
SWITCH: for ($::FORM{'knob'}) {
/^none$/ && do {
last SWITCH;