View | Details | Raw Unified | Return to bug 14759
Collapse All | Expand All

(-)a/C4/Installer/PerlDependencies.pm (-5 lines)
Lines 627-637 our $PERL_DEPS = { Link Here
627
        required   => 0,
627
        required   => 0,
628
        min_ver    => '0.40'
628
        min_ver    => '0.40'
629
    },
629
    },
630
    'Text::Unaccent' => {
631
        'usage'    => 'Core',
632
        'required' => '1',
633
        'min_ver'  => '1.08',
634
    },
635
    'Test::WWW::Mechanize' => {
630
    'Test::WWW::Mechanize' => {
636
        'usage'    => 'Testing suite',
631
        'usage'    => 'Testing suite',
637
        'required' => '0',
632
        'required' => '0',
(-)a/Koha/Patron.pm (-4 / +3 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use Carp;
23
use Carp;
24
use List::MoreUtils qw( any uniq );
24
use List::MoreUtils qw( any uniq );
25
use JSON qw( to_json );
25
use JSON qw( to_json );
26
use Text::Unaccent qw( unac_string );
26
use Unicode::Normalize;
27
27
28
use C4::Context;
28
use C4::Context;
29
use C4::Log;
29
use C4::Log;
Lines 1419-1432 sub generate_userid { Link Here
1419
      $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
1419
      $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
1420
      $surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
1420
      $surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
1421
      my $userid = lc(($firstname)? "$firstname.$surname" : $surname);
1421
      my $userid = lc(($firstname)? "$firstname.$surname" : $surname);
1422
      $userid = unac_string('utf-8',$userid);
1422
      $userid = NFKD( $userid );
1423
      $userid =~ s/\p{NonspacingMark}//g;
1423
      $userid .= $offset unless $offset == 0;
1424
      $userid .= $offset unless $offset == 0;
1424
      $self->userid( $userid );
1425
      $self->userid( $userid );
1425
      $offset++;
1426
      $offset++;
1426
     } while (! $self->has_valid_userid );
1427
     } while (! $self->has_valid_userid );
1427
1428
1428
     return $self;
1429
     return $self;
1429
1430
}
1430
}
1431
1431
1432
=head3 attributes
1432
=head3 attributes
1433
- 

Return to bug 14759