Lines 23-29
use warnings;
Link Here
|
23 |
use CGI; |
23 |
use CGI; |
24 |
use JSON qw(to_json); |
24 |
use JSON qw(to_json); |
25 |
|
25 |
|
26 |
use C4::Auth qw(check_cookie_auth); |
26 |
use C4::Auth qw(check_cookie_auth haspermission get_session); |
27 |
use C4::Biblio qw(GetMarcBiblio GetFrameworkCode GetRecordValue ); |
27 |
use C4::Biblio qw(GetMarcBiblio GetFrameworkCode GetRecordValue ); |
28 |
use C4::Circulation qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
28 |
use C4::Circulation qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
29 |
use C4::Koha qw(GetAuthorisedValueByCode); |
29 |
use C4::Koha qw(GetAuthorisedValueByCode); |
Lines 35-44
use Koha::DateUtils;
Link Here
|
35 |
my $input = new CGI; |
35 |
my $input = new CGI; |
36 |
|
36 |
|
37 |
my ( $auth_status, $sessionID ) = |
37 |
my ( $auth_status, $sessionID ) = |
38 |
check_cookie_auth( $input->cookie('CGISESSID'), |
38 |
check_cookie_auth( $input->cookie('CGISESSID')); |
39 |
{ circulate => 'circulate_remaining_permissions' } ); |
|
|
40 |
|
39 |
|
41 |
if ( $auth_status ne "ok" ) { |
40 |
my $session = get_session($sessionID); |
|
|
41 |
my $userid = $session->param('id'); |
42 |
|
43 |
unless (haspermission($userid, { circulate => 'circulate_remaining_permissions' }) |
44 |
|| haspermission($userid, { borrowers => '*' })) { |
42 |
exit 0; |
45 |
exit 0; |
43 |
} |
46 |
} |
44 |
|
47 |
|
45 |
- |
|
|