From 21fb6882764b5af1e7c0c87117cdcb33d7acfda0 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Sat, 9 Jun 2012 18:09:32 +0100 Subject: [PATCH] Bug 7411: Remove diacritics from generated userid Patch introduces a new module Text::Unaccent. To test: 1) Add a new patron with diacritics in surname and first name, leave userid empty. 2) Save user and check the created userid has only the base characters and diacritics have been removed correctly. 3) Create another user with the same surname and first name, check userid is generated correctly. Signed-off-by: Dobrica Pavlinusic Signed-off-by: Paul Poulain --- C4/Members.pm | 2 ++ debian/control | 1 + install_misc/debian.packages | 1 + 3 files changed, 4 insertions(+) diff --git a/C4/Members.pm b/C4/Members.pm index ce54952c60..fd25844356 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -38,6 +38,7 @@ use C4::NewsChannels; #get slip news use DateTime; use DateTime::Format::DateParse; use Koha::DateUtils; +use Text::Unaccent qw( unac_string ); our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug); @@ -800,6 +801,7 @@ sub Generate_Userid { $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; $surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; $newuid = lc(($firstname)? "$firstname.$surname" : $surname); + $newuid = unac_string('utf-8',$newuid); $newuid .= $offset unless $offset == 0; $offset++; diff --git a/debian/control b/debian/control index bf4d3e0651..588c641744 100644 --- a/debian/control +++ b/debian/control @@ -72,6 +72,7 @@ Build-Depends: libcgi-session-driver-memcached-perl, libtext-csv-perl, libtext-csv-xs-perl, libtext-iconv-perl, + libtext-unaccent-perl, libuniversal-require-perl, liburi-perl, libwww-perl, diff --git a/install_misc/debian.packages b/install_misc/debian.packages index 4406e3d5d0..153bcb7653 100644 --- a/install_misc/debian.packages +++ b/install_misc/debian.packages @@ -83,6 +83,7 @@ libtext-charwidth-perl install libtext-csv-encoded-perl install libtext-csv-perl install libtext-iconv-perl install +libtext-unaccent-perl install libtext-wrapi18n-perl install libtimedate-perl install libtime-duration-perl install -- 2.39.5