Lines 18-23
use Sip::Checksum qw(verify_cksum);
Link Here
|
18 |
use Data::Dumper; |
18 |
use Data::Dumper; |
19 |
use CGI qw ( -utf8 ); |
19 |
use CGI qw ( -utf8 ); |
20 |
use C4::Auth qw(&check_api_auth); |
20 |
use C4::Auth qw(&check_api_auth); |
|
|
21 |
use C4::Context; |
21 |
|
22 |
|
22 |
use UNIVERSAL qw(can); # make sure this is *after* C4 modules. |
23 |
use UNIVERSAL qw(can); # make sure this is *after* C4 modules. |
23 |
|
24 |
|
Lines 512-518
sub handle_checkout {
Link Here
|
512 |
$patron_id = $fields->{(FID_PATRON_ID)}; |
513 |
$patron_id = $fields->{(FID_PATRON_ID)}; |
513 |
$item_id = $fields->{(FID_ITEM_ID)}; |
514 |
$item_id = $fields->{(FID_ITEM_ID)}; |
514 |
|
515 |
|
515 |
|
516 |
# Overriding branch context and institution_id from value in AO |
|
|
517 |
# if allow_branch_override policy is set on institution |
518 |
if ($server->{policy}->{allow_branch_override}) { |
519 |
$inst = $fields->{(FID_INST_ID)}; |
520 |
C4::Context->userenv->{'branch'} = $inst; |
521 |
} |
516 |
if ($no_block eq 'Y') { |
522 |
if ($no_block eq 'Y') { |
517 |
# Off-line transactions need to be recorded, but there's |
523 |
# Off-line transactions need to be recorded, but there's |
518 |
# not a lot we can do about it |
524 |
# not a lot we can do about it |