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

(-)a/opac/opac-patron-image.pl (-6 / +7 lines)
Lines 32-44 unless (C4::Context->preference('OPACpatronimages')) { Link Here
32
    exit;
32
    exit;
33
}
33
}
34
34
35
my $needed_flags;
35
my ($auth_status) = check_cookie_auth( $query->cookie('CGISESSID') );
36
my %cookies = CGI::Cookie->fetch;
36
if( $auth_status ne 'ok' ) {
37
my $sessid = $cookies{'CGISESSID'}->value;
37
    print CGI::header( '-status' => '401' );
38
my ($auth_status, $auth_sessid) = check_cookie_auth($sessid, $needed_flags);
38
    exit 0;
39
my $borrowernumber = C4::Context->userenv->{'number'};
39
}
40
40
41
my $patron_image = Koha::Patron::Images->find($borrowernumber);
41
my $userenv = C4::Context->userenv;
42
my $patron_image = $userenv ? Koha::Patron::Images->find( $userenv->{number} ) : undef;
42
43
43
if ($patron_image) {
44
if ($patron_image) {
44
    print $query->header(
45
    print $query->header(
(-)a/plugins/plugins-enable.pl (-2 / +5 lines)
Lines 27-34 die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins"); Link Here
27
27
28
my $input = CGI->new;
28
my $input = CGI->new;
29
29
30
my ( $auth_status, $sessionID ) =
30
my ( $auth_status ) = check_cookie_auth( $input->cookie('CGISESSID'), { plugins => 'manage' } );
31
  check_cookie_auth( $input->cookie('CGISESSID'), { plugins => 'manage' } );
31
if( $auth_status ne 'ok' ) {
32
    print CGI::header( '-status' => '401' );
33
    exit 0;
34
}
32
35
33
my $class = $input->param('class');
36
my $class = $input->param('class');
34
my $method = $input->param('method');
37
my $method = $input->param('method');
(-)a/svc/checkouts (-2 / +5 lines)
Lines 33-40 use Koha::ItemTypes; Link Here
33
33
34
my $input = CGI->new;
34
my $input = CGI->new;
35
35
36
my ( $auth_status, $sessionID ) =
36
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'));
37
  check_cookie_auth( $input->cookie('CGISESSID'));
37
if( $auth_status ne 'ok' ) {
38
    print CGI::header( '-status' => '401' );
39
    exit 0;
40
}
38
41
39
my $session   = get_session($sessionID);
42
my $session   = get_session($sessionID);
40
my $userid   = $session->param('id');
43
my $userid   = $session->param('id');
(-)a/svc/return_claims (-3 / +5 lines)
Lines 31-38 use Koha::Patrons; Link Here
31
31
32
my $input = CGI->new;
32
my $input = CGI->new;
33
33
34
my ( $auth_status, $sessionID ) =
34
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID') );
35
  check_cookie_auth( $input->cookie('CGISESSID') );
35
if( $auth_status ne 'ok' ) {
36
    print CGI::header( '-status' => '401' );
37
    exit 0;
38
}
36
39
37
my $session = get_session($sessionID);
40
my $session = get_session($sessionID);
38
my $userid  = $session->param('id');
41
my $userid  = $session->param('id');
39
- 

Return to bug 29931