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

(-)a/C4/Members.pm (-34 lines)
Lines 90-96 BEGIN { Link Here
90
    push @EXPORT, qw(
90
    push @EXPORT, qw(
91
        &checkuniquemember
91
        &checkuniquemember
92
        &checkuserpassword
92
        &checkuserpassword
93
        &Check_Userid
94
        &Generate_Userid
93
        &Generate_Userid
95
        &fixup_cardnumber
94
        &fixup_cardnumber
96
        &checkcardnumber
95
        &checkcardnumber
Lines 467-504 sub AddMember { Link Here
467
    return $data{borrowernumber};
466
    return $data{borrowernumber};
468
}
467
}
469
468
470
=head2 Check_Userid
471
472
    my $uniqueness = Check_Userid($userid,$borrowernumber);
473
474
    $borrowernumber is optional (i.e. it can contain a blank value). If $userid is passed with a blank $borrowernumber variable, the database will be checked for all instances of that userid (i.e. userid=? AND borrowernumber != '').
475
476
    If $borrowernumber is provided, the database will be checked for every instance of that userid coupled with a different borrower(number) than the one provided.
477
478
    return :
479
        0 for not unique (i.e. this $userid already exists)
480
        1 for unique (i.e. this $userid does not exist, or this $userid/$borrowernumber combination already exists)
481
482
=cut
483
484
sub Check_Userid {
485
    my ( $uid, $borrowernumber ) = @_;
486
487
    return 0 unless ($uid); # userid is a unique column, we should assume NULL is not unique
488
489
    return 0 if ( $uid eq C4::Context->config('user') );
490
491
    my $rs = Koha::Database->new()->schema()->resultset('Borrower');
492
493
    my $params;
494
    $params->{userid} = $uid;
495
    $params->{borrowernumber} = { '!=' => $borrowernumber } if ($borrowernumber);
496
497
    my $count = $rs->count( $params );
498
499
    return $count ? 0 : 1;
500
}
501
502
=head2 Generate_Userid
469
=head2 Generate_Userid
503
470
504
    my $newuid = Generate_Userid($borrowernumber, $firstname, $surname);
471
    my $newuid = Generate_Userid($borrowernumber, $firstname, $surname);
505
- 

Return to bug 19936