Lines 289-320
subtest "Test patron_status_string" => sub {
Link Here
|
289 |
is( Koha::Checkouts->search({ borrowernumber => $patron->{borrowernumber}, 'itemlost' => { '>', 0 } }, { join => 'item'} )->count, 2, "Found 2 lost checkouts for this patron" ); |
289 |
is( Koha::Checkouts->search({ borrowernumber => $patron->{borrowernumber}, 'itemlost' => { '>', 0 } }, { join => 'item'} )->count, 2, "Found 2 lost checkouts for this patron" ); |
290 |
|
290 |
|
291 |
my $server->{account}->{lost_block_checkout} = undef; |
291 |
my $server->{account}->{lost_block_checkout} = undef; |
|
|
292 |
$sip_patron = C4::SIP::ILS::Patron->new( $patron->{cardnumber}, $server ); |
292 |
my $patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
293 |
my $patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
293 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 0 does not block checkouts with 2 lost checkouts" );; |
294 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 0 does not block checkouts with 2 lost checkouts" );; |
294 |
|
295 |
|
295 |
$server->{account}->{lost_block_checkout} = 0; |
296 |
$server->{account}->{lost_block_checkout} = 0; |
|
|
297 |
$sip_patron = C4::SIP::ILS::Patron->new( $patron->{cardnumber}, $server ); |
296 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
298 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
297 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 0 does not block checkouts with 2 lost checkouts" );; |
299 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 0 does not block checkouts with 2 lost checkouts" );; |
298 |
|
300 |
|
299 |
$server->{account}->{lost_block_checkout} = 1; |
301 |
$server->{account}->{lost_block_checkout} = 1; |
|
|
302 |
$sip_patron = C4::SIP::ILS::Patron->new( $patron->{cardnumber}, $server ); |
300 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
303 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
301 |
is( substr($patron_status_string, 9, 1), q{Y}, "lost_block_checkout = 1 does block checkouts with 2 lost checkouts" );; |
304 |
is( substr($patron_status_string, 9, 1), q{Y}, "lost_block_checkout = 1 does block checkouts with 2 lost checkouts" );; |
302 |
|
305 |
|
303 |
$server->{account}->{lost_block_checkout} = 2; |
306 |
$server->{account}->{lost_block_checkout} = 2; |
|
|
307 |
$sip_patron = C4::SIP::ILS::Patron->new( $patron->{cardnumber}, $server ); |
304 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
308 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
305 |
is( substr($patron_status_string, 9, 1), q{Y}, "lost_block_checkout = 2 does block checkouts with 2 lost checkouts" );; |
309 |
is( substr($patron_status_string, 9, 1), q{Y}, "lost_block_checkout = 2 does block checkouts with 2 lost checkouts" );; |
306 |
|
310 |
|
307 |
$server->{account}->{lost_block_checkout} = 3; |
311 |
$server->{account}->{lost_block_checkout} = 3; |
|
|
312 |
$sip_patron = C4::SIP::ILS::Patron->new( $patron->{cardnumber}, $server ); |
308 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
313 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
309 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 3 does not block checkouts with 2 lost checkouts" );; |
314 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 3 does not block checkouts with 2 lost checkouts" );; |
310 |
|
315 |
|
311 |
$server->{account}->{lost_block_checkout} = 2; |
316 |
$server->{account}->{lost_block_checkout} = 2; |
312 |
$server->{account}->{lost_block_checkout_value} = 2; |
317 |
$server->{account}->{lost_block_checkout_value} = 2; |
|
|
318 |
$sip_patron = C4::SIP::ILS::Patron->new( $patron->{cardnumber}, $server ); |
313 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
319 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
314 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 2, lost_block_checkout_value = 2 does not block checkouts with 2 lost checkouts where only 1 has itemlost = 2" ); |
320 |
is( substr($patron_status_string, 9, 1), q{ }, "lost_block_checkout = 2, lost_block_checkout_value = 2 does not block checkouts with 2 lost checkouts where only 1 has itemlost = 2" ); |
315 |
|
321 |
|
316 |
$server->{account}->{lost_block_checkout} = 1; |
322 |
$server->{account}->{lost_block_checkout} = 1; |
317 |
$server->{account}->{lost_block_checkout_value} = 2; |
323 |
$server->{account}->{lost_block_checkout_value} = 2; |
|
|
324 |
$sip_patron = C4::SIP::ILS::Patron->new( $patron->{cardnumber}, $server ); |
318 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
325 |
$patron_status_string = C4::SIP::Sip::MsgType::patron_status_string( $sip_patron, $server ); |
319 |
is( substr($patron_status_string, 9, 1), q{Y}, "lost_block_checkout = 2, lost_block_checkout_value = 2 does block checkouts with 2 lost checkouts where only 1 has itemlost = 2" ); |
326 |
is( substr($patron_status_string, 9, 1), q{Y}, "lost_block_checkout = 2, lost_block_checkout_value = 2 does block checkouts with 2 lost checkouts where only 1 has itemlost = 2" ); |
320 |
|
327 |
|
321 |
- |
|
|