From: ivan Date: Fri, 19 Apr 2002 23:25:54 +0000 (+0000) Subject: maybe just for debugging X-Git-Tag: freeside_1_4_0_pre12~44 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=167292308b03b20e5e2ba790491ee28a3af85578;p=freeside.git maybe just for debugging --- diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 7fcfd35df..d3c415ce3 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -531,11 +531,11 @@ sub check { my $ulen = $usernamemax || $self->dbdef_table->column('username')->length; if ( $username_uppercase ) { $recref->{username} =~ /^([a-z0-9_\-\.\&]{$usernamemin,$ulen})$/i - or return gettext('illegal_username'). ": ". $recref->{username}; + or return gettext('illegal_username'). " ($usernamemin-$ulen): ". $recref->{username}; $recref->{username} = $1; } else { $recref->{username} =~ /^([a-z0-9_\-\.\&]{$usernamemin,$ulen})$/ - or return gettext('illegal_username'). ": ". $recref->{username}; + or return gettext('illegal_username'). " ($usernamemin-$ulen): ". $recref->{username}; $recref->{username} = $1; }