Lines 20-25
use C4::Auth qw(&check_api_auth);
Link Here
|
20 |
|
20 |
|
21 |
use Koha::Patrons; |
21 |
use Koha::Patrons; |
22 |
use Koha::Patron::Attributes; |
22 |
use Koha::Patron::Attributes; |
|
|
23 |
use Koha::Plugins; |
23 |
use Koha::Items; |
24 |
use Koha::Items; |
24 |
|
25 |
|
25 |
use UNIVERSAL::can; |
26 |
use UNIVERSAL::can; |
Lines 520-525
sub handle_checkout {
Link Here
|
520 |
$fields = $self->{fields}; |
521 |
$fields = $self->{fields}; |
521 |
|
522 |
|
522 |
$patron_id = $fields->{ (FID_PATRON_ID) }; |
523 |
$patron_id = $fields->{ (FID_PATRON_ID) }; |
|
|
524 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
523 |
$item_id = $fields->{ (FID_ITEM_ID) }; |
525 |
$item_id = $fields->{ (FID_ITEM_ID) }; |
524 |
my $fee_ack = $fields->{ (FID_FEE_ACK) }; |
526 |
my $fee_ack = $fields->{ (FID_FEE_ACK) }; |
525 |
|
527 |
|
Lines 741-746
sub handle_block_patron {
Link Here
|
741 |
$patron_id = $fields->{ (FID_PATRON_ID) }; |
743 |
$patron_id = $fields->{ (FID_PATRON_ID) }; |
742 |
$terminal_pwd = $fields->{ (FID_TERMINAL_PWD) }; |
744 |
$terminal_pwd = $fields->{ (FID_TERMINAL_PWD) }; |
743 |
|
745 |
|
|
|
746 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
747 |
|
744 |
# Terminal passwords are different from account login |
748 |
# Terminal passwords are different from account login |
745 |
# passwords, but I have no idea what to do with them. So, |
749 |
# passwords, but I have no idea what to do with them. So, |
746 |
# I'll just ignore them for now. |
750 |
# I'll just ignore them for now. |
Lines 965-970
sub handle_patron_info {
Link Here
|
965 |
$start = $fields->{ (FID_START_ITEM) }; |
969 |
$start = $fields->{ (FID_START_ITEM) }; |
966 |
$end = $fields->{ (FID_END_ITEM) }; |
970 |
$end = $fields->{ (FID_END_ITEM) }; |
967 |
|
971 |
|
|
|
972 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
973 |
|
968 |
$patron = $ils->find_patron($patron_id); |
974 |
$patron = $ils->find_patron($patron_id); |
969 |
|
975 |
|
970 |
$resp = (PATRON_INFO_RESP); |
976 |
$resp = (PATRON_INFO_RESP); |
Lines 1122-1127
sub handle_fee_paid {
Link Here
|
1122 |
$fee_id = $fields->{ (FID_FEE_ID) }; |
1128 |
$fee_id = $fields->{ (FID_FEE_ID) }; |
1123 |
$trans_id = $fields->{ (FID_TRANSACTION_ID) }; |
1129 |
$trans_id = $fields->{ (FID_TRANSACTION_ID) }; |
1124 |
|
1130 |
|
|
|
1131 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
1132 |
|
1125 |
$ils->check_inst_id( $inst_id, "handle_fee_paid" ); |
1133 |
$ils->check_inst_id( $inst_id, "handle_fee_paid" ); |
1126 |
|
1134 |
|
1127 |
my $pay_result = $ils->pay_fee( $patron_id, $patron_pwd, $fee_amt, $fee_type, $pay_type, $fee_id, $trans_id, $currency, $is_writeoff, $disallow_overpayment, $register_id ); |
1135 |
my $pay_result = $ils->pay_fee( $patron_id, $patron_pwd, $fee_amt, $fee_type, $pay_type, $fee_id, $trans_id, $currency, $is_writeoff, $disallow_overpayment, $register_id ); |
Lines 1318-1323
sub handle_patron_enable {
Link Here
|
1318 |
$patron_id = $fields->{ (FID_PATRON_ID) }; |
1326 |
$patron_id = $fields->{ (FID_PATRON_ID) }; |
1319 |
$patron_pwd = $fields->{ (FID_PATRON_PWD) }; |
1327 |
$patron_pwd = $fields->{ (FID_PATRON_PWD) }; |
1320 |
|
1328 |
|
|
|
1329 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
1330 |
|
1321 |
siplog( "LOG_DEBUG", "handle_patron_enable: patron_id: '%s', patron_pwd: '%s'", $patron_id, $patron_pwd ); |
1331 |
siplog( "LOG_DEBUG", "handle_patron_enable: patron_id: '%s', patron_pwd: '%s'", $patron_id, $patron_pwd ); |
1322 |
|
1332 |
|
1323 |
$patron = $ils->find_patron($patron_id); |
1333 |
$patron = $ils->find_patron($patron_id); |
Lines 1381-1386
sub handle_hold {
Link Here
|
1381 |
$title_id = $fields->{ (FID_TITLE_ID) } || ''; |
1391 |
$title_id = $fields->{ (FID_TITLE_ID) } || ''; |
1382 |
$fee_ack = $fields->{ (FID_FEE_ACK) } || 'N'; |
1392 |
$fee_ack = $fields->{ (FID_FEE_ACK) } || 'N'; |
1383 |
|
1393 |
|
|
|
1394 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
1395 |
|
1384 |
if ( $hold_mode eq '+' ) { |
1396 |
if ( $hold_mode eq '+' ) { |
1385 |
$status = $ils->add_hold( $patron_id, $patron_pwd, $item_id, $title_id, $expiry_date, $pickup_locn, $hold_type, $fee_ack ); |
1397 |
$status = $ils->add_hold( $patron_id, $patron_pwd, $item_id, $title_id, $expiry_date, $pickup_locn, $hold_type, $fee_ack ); |
1386 |
} elsif ( $hold_mode eq '-' ) { |
1398 |
} elsif ( $hold_mode eq '-' ) { |
Lines 1446-1451
sub handle_renew {
Link Here
|
1446 |
$item_props = $fields->{ (FID_ITEM_PROPS) }; |
1458 |
$item_props = $fields->{ (FID_ITEM_PROPS) }; |
1447 |
$fee_ack = $fields->{ (FID_FEE_ACK) }; |
1459 |
$fee_ack = $fields->{ (FID_FEE_ACK) }; |
1448 |
|
1460 |
|
|
|
1461 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
1462 |
|
1449 |
$status = $ils->renew( $patron_id, $patron_pwd, $item_id, $title_id, $no_block, $nb_due_date, $third_party, $item_props, $fee_ack ); |
1463 |
$status = $ils->renew( $patron_id, $patron_pwd, $item_id, $title_id, $no_block, $nb_due_date, $third_party, $item_props, $fee_ack ); |
1450 |
|
1464 |
|
1451 |
$patron = $status->patron; |
1465 |
$patron = $status->patron; |
Lines 1527-1532
sub handle_renew_all {
Link Here
|
1527 |
$terminal_pwd = $fields->{ (FID_TERMINAL_PWD) }; |
1541 |
$terminal_pwd = $fields->{ (FID_TERMINAL_PWD) }; |
1528 |
$fee_ack = $fields->{ (FID_FEE_ACK) }; |
1542 |
$fee_ack = $fields->{ (FID_FEE_ACK) }; |
1529 |
|
1543 |
|
|
|
1544 |
($patron_id) = Koha::Plugins->call('patron_barcode_transform', $patron_id ) || $patron_id; |
1545 |
|
1530 |
$status = $ils->renew_all( $patron_id, $patron_pwd, $fee_ack ); |
1546 |
$status = $ils->renew_all( $patron_id, $patron_pwd, $fee_ack ); |
1531 |
|
1547 |
|
1532 |
$resp .= $status->ok ? '1' : '0'; |
1548 |
$resp .= $status->ok ? '1' : '0'; |