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