adduser: improve error message for large numeric input

Old message was not as intended:

> Name for the new account: 123123123123
> That's way too much money. Enter 'abort' to abort.

Fixed:

> Name for the new account: 123123123123
Sorry, that's too numeric to be a user name. Enter 'abort' to abort.

plugins/adduser

@@ -22,7 +22,7 @@ sub username($self, $cart, $name, @) {
         if $name =~ /^[-+*\/\^]/;
 
     return REJECT, "Sorry, that's too numeric to be a user name."
-        if defined parse_amount($name);
+        if defined RevBank::Amount->parse_string($name);
 
     return REJECT, "That name is not available."
         if defined parse_user($name, 1);

revbank

@@ -17,7 +17,7 @@ use RevBank::Messages;
 use RevBank::Cart;
 use RevBank::Prompt;
 
-our $VERSION = "6.2.0";
+our $VERSION = "6.2.1";
 our %HELP1 = (
     "abort" => "Abort the current transaction",
 );
@@ -159,6 +159,7 @@ OUTER: for (;;) {
 
             abort if $method eq "command" and $word eq "abort";  # here, even when quoted
 
+
             push @retry, $word;
 
             ALL_PLUGINS: { PLUGIN: for my $plugin (@plugins) {