Lines 48-56
eval {
Link Here
|
48 |
my $password = $cgi->param("password") // q{} ; |
48 |
my $password = $cgi->param("password") // q{} ; |
49 |
my $patron = Koha::Patrons->find({ userid => $user }); |
49 |
my $patron = Koha::Patrons->find({ userid => $user }); |
50 |
my $branch_info = $patron ? Koha::Library::OverDriveInfos->find( $patron->branchcode ) : undef; |
50 |
my $branch_info = $patron ? Koha::Library::OverDriveInfos->find( $patron->branchcode ) : undef; |
|
|
51 |
my $cardnumber = $patron ? $patron->cardnumber : undef; |
51 |
my $branch_authname = $branch_info ? $branch_info->authname : undef; |
52 |
my $branch_authname = $branch_info ? $branch_info->authname : undef; |
52 |
my $authname = $branch_authname || C4::Context->preference('OverDriveAuthname'); |
53 |
my $authname = $branch_authname || C4::Context->preference('OverDriveAuthname'); |
53 |
$od->auth_by_userid($user, $password,C4::Context->preference('OverDriveWebsiteID'),$authname); |
54 |
$od->auth_by_userid($cardnumber, $password,C4::Context->preference('OverDriveWebsiteID'),$authname); |
54 |
$data{login_success} = 1; |
55 |
$data{login_success} = 1; |
55 |
last; |
56 |
last; |
56 |
}; |
57 |
}; |
57 |
- |
|
|