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