From 25c792cf236517004be5c477563d0f9dcfc6a6a1 Mon Sep 17 00:00:00 2001
From: Roland Gruber <post@rolandgruber.de>
Date: Sat, 14 Jan 2006 09:56:17 +0000
Subject: [PATCH] fixed email regex (patch 1403922)

---
 lam/lib/account.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lam/lib/account.inc b/lam/lib/account.inc
index e02a58bd..3785b996 100644
--- a/lam/lib/account.inc
+++ b/lam/lib/account.inc
@@ -470,10 +470,10 @@ function get_preg($argument, $regexp) {
 					$pregexpr = '/^(\\+)*([0-9\\.\\ \\(\\)\\/-])*$/';
 					break;
 		case "email":
-					$pregexpr = '/^([0-9a-z\\._-])+[@]([0-9a-z-])+([.]([0-9a-z-])+)*$/';
+					$pregexpr = '/^([0-9a-zA-Z\\._-])+[@]([0-9a-zA-Z-])+([.]([0-9a-zA-Z-])+)*$/';
 					break;
 		case "mailLocalAddress":
-					$pregexpr = '/^([0-9a-z\\._-])+([@]([0-9a-z-])+([.]([0-9a-z-])+)*)?$/';
+					$pregexpr = '/^([0-9a-zA-Z\\._-])+([@]([0-9a-zA-Z-])+([.]([0-9a-zA-Z-])+)*)?$/';
 					break;
 		case "postalAddress":	// Allow all but \, <, >, =, $, ?
 		case "postalCode":