|
Lines 195-200
sub store {
Link Here
|
| 195 |
|
195 |
|
| 196 |
unless ( $self->in_storage ) { #AddMember |
196 |
unless ( $self->in_storage ) { #AddMember |
| 197 |
|
197 |
|
|
|
198 |
# Set surname to uppercase if uppercasesurname is true |
| 199 |
$self->surname = uc($self->surname) |
| 200 |
if C4::Context->preference("uppercasesurname"); |
| 201 |
|
| 198 |
# Generate a valid userid/login if needed |
202 |
# Generate a valid userid/login if needed |
| 199 |
$self->generate_userid |
203 |
$self->generate_userid |
| 200 |
if not $self->userid or not $self->has_valid_userid; |
204 |
if not $self->userid or not $self->has_valid_userid; |
| 201 |
- |
|
|