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-517
sub handle_checkout {
Link Here
|
512 |
$patron_id = $fields->{(FID_PATRON_ID)}; |
512 |
$patron_id = $fields->{(FID_PATRON_ID)}; |
513 |
$item_id = $fields->{(FID_ITEM_ID)}; |
513 |
$item_id = $fields->{(FID_ITEM_ID)}; |
514 |
|
514 |
|
|
|
515 |
# Overriding branch context and institution_id from value in AO |
516 |
# if allow_branch_override policy is set on institution |
517 |
if ($server->{policy}->{allow_branch_override}) { |
518 |
$inst = $fields->{(FID_INST_ID)}; |
519 |
C4::Context->userenv->{'branch'} = $inst; |
520 |
} |
515 |
if ($no_block eq 'Y') { |
521 |
if ($no_block eq 'Y') { |
516 |
# Off-line transactions need to be recorded, but there's |
522 |
# Off-line transactions need to be recorded, but there's |
517 |
# not a lot we can do about it |
523 |
# not a lot we can do about it |