v6.1.1: Feature: warning messages for invalid accounts
This commit is contained in:
parent
33b08f99ea
commit
f2d09b4da5
5 changed files with 36 additions and 19 deletions
|
@ -24,9 +24,6 @@ sub username($self, $cart, $name, @) {
|
|||
return REJECT, "Sorry, that's too numeric to be a user name."
|
||||
if defined parse_amount($name);
|
||||
|
||||
return REJECT, "That name already exists."
|
||||
if defined parse_user($name);
|
||||
|
||||
return REJECT, "That name is not available."
|
||||
if defined parse_user($name, 1);
|
||||
|
||||
|
|
|
@ -27,11 +27,7 @@ sub read_products() {
|
|||
|
||||
my @split = RevBank::Prompt::split_input($line);
|
||||
|
||||
if (grep /\0SEPARATOR/, @split) {
|
||||
warn "Invalid character in $filename line $linenr.\n";
|
||||
next;
|
||||
}
|
||||
if (grep /\0/, @split) {
|
||||
if (not @split or ref $split[0] or grep /\0/, @split) {
|
||||
warn "Invalid value in $filename line $linenr.\n";
|
||||
next;
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue