From 75b3c754b336b5d19290e7c2e8338f19c4c1b392 Mon Sep 17 00:00:00 2001 From: Sophie Meynieux Date: Fri, 6 Jan 2012 11:39:05 +0100 Subject: [PATCH] Bug 7411 : remove diacritics from userid when generated automatically --- C4/Members.pm | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 1c504d8..4d46544 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -26,6 +26,8 @@ use C4::Context; use C4::Dates qw(format_date_in_iso); use Digest::MD5 qw(md5_base64); use Date::Calc qw/Today Add_Delta_YM/; +use Text::Undiacritic qw(undiacritic); +use Encode; use C4::Log; # logaction use C4::Overdues; use C4::Reserves; @@ -821,6 +823,7 @@ sub Generate_Userid { } while (!Check_Userid($newuid,$borrowernumber)); + $newuid = undiacritic( decode_utf8( $newuid ) ); return $newuid; } -- 1.7.5.4