|
Lines 108-114
subtest 'Test renew desensitize' => sub {
Link Here
|
| 108 |
subtest 'Checkin V2' => sub { |
108 |
subtest 'Checkin V2' => sub { |
| 109 |
my $schema = Koha::Database->new->schema; |
109 |
my $schema = Koha::Database->new->schema; |
| 110 |
$schema->storage->txn_begin; |
110 |
$schema->storage->txn_begin; |
| 111 |
plan tests => 40; |
111 |
plan tests => 46; |
| 112 |
$C4::SIP::Sip::protocol_version = 2; |
112 |
$C4::SIP::Sip::protocol_version = 2; |
| 113 |
test_checkin_v2(); |
113 |
test_checkin_v2(); |
| 114 |
$schema->storage->txn_rollback; |
114 |
$schema->storage->txn_rollback; |
|
Lines 1264-1269
sub test_checkin_v2 {
Link Here
|
| 1264 |
$item_object->holdingbranch( $branchcode )->store(); |
1264 |
$item_object->holdingbranch( $branchcode )->store(); |
| 1265 |
t::lib::Mocks::mock_preference( ' AllowReturnToBranch ', 'anywhere' ); |
1265 |
t::lib::Mocks::mock_preference( ' AllowReturnToBranch ', 'anywhere' ); |
| 1266 |
|
1266 |
|
|
|
1267 |
# Change homebranch to trigger NeedsTransfer response (with and without automatic item return) |
| 1268 |
t::lib::Mocks::mock_preference( 'AutomaticItemReturn', 0 ); |
| 1269 |
$item_object->homebranch($branchcode2)->store(); |
| 1270 |
undef $response; |
| 1271 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 1272 |
$msg->handle_checkin($server); |
| 1273 |
check_field( $respcode, $response, FID_ALERT_TYPE, '04', 'Got CV 04' ); |
| 1274 |
check_field( |
| 1275 |
$respcode, $response, FID_SCREEN_MSG, 'This item must still be transferred', 'Check screen msg', |
| 1276 |
'regex' |
| 1277 |
); |
| 1278 |
is( $item_object->transfer, undef, 'No transfer was started' ); |
| 1279 |
t::lib::Mocks::mock_preference( 'AutomaticItemReturn', 1 ); |
| 1280 |
undef $response; |
| 1281 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 1282 |
$msg->handle_checkin($server); |
| 1283 |
check_field( $respcode, $response, FID_ALERT_TYPE, '04', 'Got CV 04' ); |
| 1284 |
check_field( $respcode, $response, FID_SCREEN_MSG, undef, 'No screen msg' ); |
| 1285 |
isnt( $item_object->transfer, undef, 'A transfer was started' ); |
| 1286 |
$item_object->transfer->delete; |
| 1287 |
$item_object->homebranch($branchcode)->store(); |
| 1288 |
|
| 1267 |
$server->{account}->{cv_send_00_on_success} = 0; |
1289 |
$server->{account}->{cv_send_00_on_success} = 0; |
| 1268 |
undef $response; |
1290 |
undef $response; |
| 1269 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
1291 |
$msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 ); |
| 1270 |
- |
|
|