|
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++; |