|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 119; |
20 |
use Test::More tests => 120; |
| 21 |
|
21 |
|
| 22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
| 23 |
use DateTime; |
23 |
use DateTime; |
|
Lines 854-859
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
| 854 |
|
854 |
|
| 855 |
LostItem( $itemnumber, 'test', 1 ); |
855 |
LostItem( $itemnumber, 'test', 1 ); |
| 856 |
|
856 |
|
|
|
857 |
$line = Koha::Account::Lines->find($line->id); |
| 858 |
is( $line->accounttype, 'F', 'Account type correctly changed from FU to F' ); |
| 859 |
|
| 857 |
my $item = Koha::Database->new()->schema()->resultset('Item')->find($itemnumber); |
860 |
my $item = Koha::Database->new()->schema()->resultset('Item')->find($itemnumber); |
| 858 |
ok( !$item->onloan(), "Lost item marked as returned has false onloan value" ); |
861 |
ok( !$item->onloan(), "Lost item marked as returned has false onloan value" ); |
| 859 |
my $checkout = Koha::Checkouts->find({ itemnumber => $itemnumber }); |
862 |
my $checkout = Koha::Checkouts->find({ itemnumber => $itemnumber }); |
| 860 |
- |
|
|