|
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' ) { |