|
Lines 10-16
use C4::Circulation;
Link Here
|
| 10 |
use C4::Items; |
10 |
use C4::Items; |
| 11 |
use C4::Context; |
11 |
use C4::Context; |
| 12 |
|
12 |
|
| 13 |
use Test::More tests => 27; |
13 |
use Test::More tests => 30; |
| 14 |
|
14 |
|
| 15 |
BEGIN { |
15 |
BEGIN { |
| 16 |
use_ok('C4::Circulation'); |
16 |
use_ok('C4::Circulation'); |
|
Lines 342-346
AddReturn('barcode_1', undef, undef, undef, '2014-04-01 23:42');
Link Here
|
| 342 |
$return = $dbh->selectrow_hashref("SELECT * FROM old_issues LIMIT 1" ); |
342 |
$return = $dbh->selectrow_hashref("SELECT * FROM old_issues LIMIT 1" ); |
| 343 |
ok( $return->{returndate} eq '2014-04-01 23:42:00', "Item returned with a return date of '2014-04-01 23:42' has that return date" ); |
343 |
ok( $return->{returndate} eq '2014-04-01 23:42:00', "Item returned with a return date of '2014-04-01 23:42' has that return date" ); |
| 344 |
|
344 |
|
|
|
345 |
my ($biblionumber, $biblioitemnumber, $itemnumber) = C4::Items::AddItem( |
| 346 |
{ |
| 347 |
barcode => 'barcode_3', |
| 348 |
itemcallnumber => 'callnumber3', |
| 349 |
homebranch => $samplebranch1->{branchcode}, |
| 350 |
holdingbranch => $samplebranch1->{branchcode}, |
| 351 |
notforloan => 1, |
| 352 |
}, |
| 353 |
$biblionumber |
| 354 |
); |
| 355 |
|
| 356 |
C4::Context->set_preference( 'UpdateNotForLoanStatusOnCheckin', q{} ); |
| 357 |
AddReturn( 'barcode_3', $samplebranch1->{branchcode} ); |
| 358 |
my $item = GetItem( $itemnumber ); |
| 359 |
ok( $item->{notforloan} eq 1, 'UpdateNotForLoanStatusOnCheckin does not modify value when not enabled' ); |
| 360 |
|
| 361 |
C4::Context->set_preference( 'UpdateNotForLoanStatusOnCheckin', '1: 9' ); |
| 362 |
AddReturn( 'barcode_3', $samplebranch1->{branchcode} ); |
| 363 |
$item = GetItem( $itemnumber ); |
| 364 |
ok( $item->{notforloan} eq 9, q{UpdateNotForLoanStatusOnCheckin updates notforloan value from 1 to 9 with setting "1: 9"} ); |
| 365 |
|
| 366 |
AddReturn( 'barcode_3', $samplebranch1->{branchcode} ); |
| 367 |
$item = GetItem( $itemnumber ); |
| 368 |
ok( $item->{notforloan} eq 9, q{UpdateNotForLoanStatusOnCheckin does not update notforloan value from 9 with setting "1: 9"} ); |
| 369 |
|
| 370 |
|
| 345 |
#End transaction |
371 |
#End transaction |
| 346 |
$dbh->rollback; |
372 |
$dbh->rollback; |
| 347 |
- |
|
|