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

(-)a/Koha/Patron.pm (-3 / +2 lines)
Lines 886-893 sub generate_userid { Link Here
886
    my $userid;
886
    my $userid;
887
    my $offset = 0;
887
    my $offset = 0;
888
    my $patron = Koha::Patron->new;
888
    my $patron = Koha::Patron->new;
889
    my $firstname = $self->firstname;
889
    my $firstname = $self->firstname // q{};
890
    my $surname = $self->surname;
890
    my $surname = $self->surname // q{};
891
    #The script will "do" the following code and increment the $offset until the generated userid is unique
891
    #The script will "do" the following code and increment the $offset until the generated userid is unique
892
    do {
892
    do {
893
      $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
893
      $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
894
- 

Return to bug 19936