Lines 18-23
use C4::SIP::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 513-518
sub handle_checkout {
Link Here
|
513 |
$item_id = $fields->{(FID_ITEM_ID)}; |
514 |
$item_id = $fields->{(FID_ITEM_ID)}; |
514 |
my $fee_ack = $fields->{(FID_FEE_ACK)}; |
515 |
my $fee_ack = $fields->{(FID_FEE_ACK)}; |
515 |
|
516 |
|
|
|
517 |
# Overriding branch context and institution_id from value in AO |
518 |
# if allow_branch_override policy is set on institution |
519 |
if ($server->{policy}->{allow_branch_override}) { |
520 |
$inst = $fields->{(FID_INST_ID)}; |
521 |
C4::Context->userenv->{'branch'} = $inst; |
522 |
} |
516 |
|
523 |
|
517 |
if ( $no_block eq 'Y' ) { |
524 |
if ( $no_block eq 'Y' ) { |