Lines 21-26
package Koha::Patron;
Link Here
|
21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
22 |
|
22 |
|
23 |
use Carp; |
23 |
use Carp; |
|
|
24 |
use Encode qw/encode_utf8 decode_utf8/; |
24 |
use List::MoreUtils qw( uniq ); |
25 |
use List::MoreUtils qw( uniq ); |
25 |
use JSON qw( to_json ); |
26 |
use JSON qw( to_json ); |
26 |
use Text::Unaccent qw( unac_string ); |
27 |
use Text::Unaccent qw( unac_string ); |
Lines 1313-1319
sub generate_userid {
Link Here
|
1313 |
$firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
1314 |
$firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
1314 |
$surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
1315 |
$surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
1315 |
my $userid = lc(($firstname)? "$firstname.$surname" : $surname); |
1316 |
my $userid = lc(($firstname)? "$firstname.$surname" : $surname); |
1316 |
$userid = unac_string('utf-8',$userid); |
1317 |
$userid = decode_utf8(unac_string('utf-8',encode_utf8($userid))); |
1317 |
$userid .= $offset unless $offset == 0; |
1318 |
$userid .= $offset unless $offset == 0; |
1318 |
$self->userid( $userid ); |
1319 |
$self->userid( $userid ); |
1319 |
$offset++; |
1320 |
$offset++; |