Lines 38-43
use C4::NewsChannels; #get slip news
Link Here
|
38 |
use DateTime; |
38 |
use DateTime; |
39 |
use DateTime::Format::DateParse; |
39 |
use DateTime::Format::DateParse; |
40 |
use Koha::DateUtils; |
40 |
use Koha::DateUtils; |
|
|
41 |
use Text::Unaccent qw( unac_string ); |
41 |
|
42 |
|
42 |
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug); |
43 |
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug); |
43 |
|
44 |
|
Lines 800-805
sub Generate_Userid {
Link Here
|
800 |
$firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
801 |
$firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
801 |
$surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
802 |
$surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g; |
802 |
$newuid = lc(($firstname)? "$firstname.$surname" : $surname); |
803 |
$newuid = lc(($firstname)? "$firstname.$surname" : $surname); |
|
|
804 |
$newuid = unac_string('utf-8',$newuid); |
803 |
$newuid .= $offset unless $offset == 0; |
805 |
$newuid .= $offset unless $offset == 0; |
804 |
$offset++; |
806 |
$offset++; |
805 |
|
807 |
|