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

(-)a/Koha/ExternalContent.pm (-1 / +1 lines)
Lines 86-92 sub koha_patron { Link Here
86
    }
86
    }
87
87
88
    my $id = $self->get_from_koha_session('number')
88
    my $id = $self->get_from_koha_session('number')
89
      or die "No patron number in session";
89
      or return;
90
    my $patron = Koha::Patrons->find($id)
90
    my $patron = Koha::Patrons->find($id)
91
      or die "Invalid patron number in session";
91
      or die "Invalid patron number in session";
92
    return $self->_koha_patron_accessor($patron);
92
    return $self->_koha_patron_accessor($patron);
(-)a/Koha/ExternalContent/OverDrive.pm (-4 / +8 lines)
Lines 135-141 sub auth_by_code { Link Here
135
    $access_token or die "Invalid OverDrive code returned";
135
    $access_token or die "Invalid OverDrive code returned";
136
    $self->set_token_in_koha_session($access_token, $access_token_type);
136
    $self->set_token_in_koha_session($access_token, $access_token_type);
137
137
138
    $self->koha_patron->set({overdrive_auth_token => $auth_token})->store;
138
    if (my $koha_patron = $self->koha_patron) {
139
        $koha_patron->set({overdrive_auth_token => $auth_token})->store;
140
    }
139
    return $self->get_return_page_from_koha_session;
141
    return $self->get_return_page_from_koha_session;
140
}
142
}
141
143
Lines 202-208 sub is_logged_in { Link Here
202
sub auth_by_saved_token {
204
sub auth_by_saved_token {
203
    my $self = shift;
205
    my $self = shift;
204
206
205
    my $koha_patron = $self->koha_patron;
207
    my $koha_patron = $self->koha_patron or return;
208
206
    if (my $auth_token = $koha_patron->overdrive_auth_token) {
209
    if (my $auth_token = $koha_patron->overdrive_auth_token) {
207
        my ($access_token, $access_token_type, $new_auth_token)
210
        my ($access_token, $access_token_type, $new_auth_token)
208
          = $self->client->auth_by_token($auth_token);
211
          = $self->client->auth_by_token($auth_token);
Lines 224-230 sub forget { Link Here
224
    my $self = shift;
227
    my $self = shift;
225
228
226
    $self->set_token_in_koha_session("", "");
229
    $self->set_token_in_koha_session("", "");
227
    $self->koha_patron->set({overdrive_auth_token => undef})->store;
230
    if (my $koha_patron = $self->koha_patron) {
231
        $koha_patron->set({overdrive_auth_token => undef})->store;
232
    }
228
}
233
}
229
234
230
use vars qw{$AUTOLOAD};
235
use vars qw{$AUTOLOAD};
231
- 

Return to bug 17602