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

(-)a/Koha/Patron.pm (-3 / +2 lines)
Lines 764-771 sub generate_userid { Link Here
764
    my $userid;
764
    my $userid;
765
    my $offset = 0;
765
    my $offset = 0;
766
    my $patron = Koha::Patron->new;
766
    my $patron = Koha::Patron->new;
767
    my $firstname = $self->firstname;
767
    my $firstname = $self->firstname // q{};
768
    my $surname = $self->surname;
768
    my $surname = $self->surname // q{};
769
    #The script will "do" the following code and increment the $offset until the generated userid is unique
769
    #The script will "do" the following code and increment the $offset until the generated userid is unique
770
    do {
770
    do {
771
      $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
771
      $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
772
- 

Return to bug 19936