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