Blech. Line 862 of MyLinks2.pm change:
$error .= Links::language('MY_REC_BAD_NAME', $input->{$field}) . '<br>';
next;
}
unless ($input->{$field}->[1] =~ /^\S+@\S+\.\S+$/i) {
$error .= Links::language('MY_REC_BAD_EMAIL', $input->{$field}) . '<br>';
next;
}
to...
$error .= Links::language('MY_REC_BAD_NAME', $input->{$field}->[2]) . '<br>';
next;
}
unless ($input->{$field}->[1] =~ /^\S+@\S+\.\S+$/i) {
$error .= Links::language('MY_REC_BAD_EMAIL', $input->{$field}->[1]) . '<br>';
next;
}
Code:
unless ($input->{$field}->[2] =~ /^[a-zA-Z ]+$/) { $error .= Links::language('MY_REC_BAD_NAME', $input->{$field}) . '<br>';
next;
}
unless ($input->{$field}->[1] =~ /^\S+@\S+\.\S+$/i) {
$error .= Links::language('MY_REC_BAD_EMAIL', $input->{$field}) . '<br>';
next;
}
to...
Code:
unless ($input->{$field}->[2] =~ /^[a-zA-Z ]+$/) { $error .= Links::language('MY_REC_BAD_NAME', $input->{$field}->[2]) . '<br>';
next;
}
unless ($input->{$field}->[1] =~ /^\S+@\S+\.\S+$/i) {
$error .= Links::language('MY_REC_BAD_EMAIL', $input->{$field}->[1]) . '<br>';
next;
}