View | Details | Raw Unified | Return to bug 9484
Collapse All | Expand All

(-)a/members/memberentry.pl (-2 / +12 lines)
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
- 

Return to bug 9484