From 41ad6f09b31ed1f6c85a082ccb5e13c18841e20a Mon Sep 17 00:00:00 2001
From: smg-ca <159431080+smg-ca@users.noreply.github.com>
Date: Wed, 5 Nov 2025 09:43:45 +0100
Subject: [PATCH] Allow username to start with an alpha-numeric character

---
 sophomorix-samba/modules/SophomorixBase.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/sophomorix-samba/modules/SophomorixBase.pm b/sophomorix-samba/modules/SophomorixBase.pm
index 45f02f4e..2618ec3f 100644
--- a/sophomorix-samba/modules/SophomorixBase.pm
+++ b/sophomorix-samba/modules/SophomorixBase.pm
@@ -5717,10 +5717,10 @@ sub create_test_login {
 	    my $error_message="'".$login_wish."' is to short for a login name! (Minimum number of characters for a login name is 2) ".
                               "| $file LINE $line_num: $ref_users_file->{$school}{'identifier_ascii'}{$identifier_ascii}{LINE_OLD}";
             return ("---",$error_message);
-        } elsif (not $login_wish=~m/^[a-z]+/){
-#	    my $error_message="'".$login_wish."' does not begin with a-z ".
+        } elsif (not $login_wish=~m/^[[:alnum:]]+/){
+#	    my $error_message="'".$login_wish."' does not begin with an alpha-numeric character ".
 #                              "| $file LINE $line_num: $ref_users_file->{$file}{'identifier_ascii'}{$identifier_ascii}{LINE_OLD}";
-	    my $error_message="'".$login_wish."' does not begin with a-z ".
+	    my $error_message="'".$login_wish."' does not begin with an alpha-numeric character ".
                               "| $file LINE $line_num: $ref_users_file->{$school}{'identifier_ascii'}{$identifier_ascii}{LINE_OLD}";
              return ("---",$error_message);
         } elsif (exists $ref_forbidden_logins->{'FORBIDDEN'}{$login_wish}){