|
Lines 254-260
$newdata{'country'} = $input->param('country') if defined($input->param('country
Link Here
|
| 254 |
|
254 |
|
| 255 |
#builds default userid |
255 |
#builds default userid |
| 256 |
if ( (defined $newdata{'userid'}) && ($newdata{'userid'} eq '')){ |
256 |
if ( (defined $newdata{'userid'}) && ($newdata{'userid'} eq '')){ |
| 257 |
$newdata{'userid'} = Generate_Userid($borrowernumber, $newdata{'firstname'}, $newdata{'surname'}); |
257 |
if ( ( defined $newdata{'firstname'} ) && ( defined $newdata{'surname'} ) ) { |
|
|
258 |
# Full page edit, firstname and surname input zones are present |
| 259 |
$newdata{'userid'} = Generate_Userid( $borrowernumber, $newdata{'firstname'}, $newdata{'surname'} ); |
| 260 |
} |
| 261 |
elsif ( ( defined $data{'firstname'} ) && ( defined $data{'surname'} ) ) { |
| 262 |
# Partial page edit (access through "Details"/"Library details" tab), firstname and surname input zones are not used |
| 263 |
# Still, if the userid field is erased, we can create a new userid with available firstname and surname |
| 264 |
$newdata{'userid'} = Generate_Userid( $borrowernumber, $data{'firstname'}, $data{'surname'} ); |
| 265 |
} |
| 266 |
else { |
| 267 |
$newdata{'userid'} = $data{'userid'}; |
| 268 |
} |
| 258 |
} |
269 |
} |
| 259 |
|
270 |
|
| 260 |
$debug and warn join "\t", map {"$_: $newdata{$_}"} qw(dateofbirth dateenrolled dateexpiry); |
271 |
$debug and warn join "\t", map {"$_: $newdata{$_}"} qw(dateofbirth dateenrolled dateexpiry); |
| 261 |
- |
|
|