|
Lines 1746-1752
subtest 'revert_found() tests' => sub {
Link Here
|
| 1746 |
}; |
1746 |
}; |
| 1747 |
}; |
1747 |
}; |
| 1748 |
subtest 'move_hold() tests' => sub { |
1748 |
subtest 'move_hold() tests' => sub { |
| 1749 |
plan tests => 16; |
1749 |
plan tests => 21; |
| 1750 |
$schema->storage->txn_begin; |
1750 |
$schema->storage->txn_begin; |
| 1751 |
|
1751 |
|
| 1752 |
my $patron = Koha::Patron->new( |
1752 |
my $patron = Koha::Patron->new( |
|
Lines 1902-1907
subtest 'move_hold() tests' => sub {
Link Here
|
| 1902 |
'diff column contains undef itemnumber because this is a record level move' |
1902 |
'diff column contains undef itemnumber because this is a record level move' |
| 1903 |
); |
1903 |
); |
| 1904 |
|
1904 |
|
|
|
1905 |
$hold->move_hold( { new_itemnumber => $item_3->itemnumber } ); |
| 1906 |
$hold->discard_changes; |
| 1907 |
|
| 1908 |
my $logs_3 = Koha::ActionLogs->search( |
| 1909 |
{ |
| 1910 |
action => 'MODIFY', |
| 1911 |
module => 'HOLDS', |
| 1912 |
object => $hold->id |
| 1913 |
} |
| 1914 |
); |
| 1915 |
|
| 1916 |
is( $logs_3->count, 1, 'Item level hold modification was logged' ); |
| 1917 |
|
| 1918 |
my $diff_3 = decode_json( $logs_3->next->diff ); |
| 1919 |
is( |
| 1920 |
$diff_3->{D}->{itemnumber}->{O}, $item_2->itemnumber, |
| 1921 |
'diff column for Old (O) contains original itemnumber for item level move' |
| 1922 |
); |
| 1923 |
is( |
| 1924 |
$diff_3->{D}->{itemnumber}->{N}, $item_3->itemnumber, |
| 1925 |
'diff column for New (N) contains new itemnumber for item level move' |
| 1926 |
); |
| 1927 |
is( |
| 1928 |
$diff_3->{D}->{biblionumber}->{O}, $biblio2->biblionumber, |
| 1929 |
'diff column for Old (O) contains original biblionumber for item level move' |
| 1930 |
); |
| 1931 |
is( |
| 1932 |
$diff_3->{D}->{biblionumber}->{N}, $biblio3->biblionumber, |
| 1933 |
'diff column for New (N) contains new biblionumber for item level move' |
| 1934 |
); |
| 1935 |
|
| 1905 |
#disable HoldsLog |
1936 |
#disable HoldsLog |
| 1906 |
t::lib::Mocks::mock_preference( 'HoldsLog', 0 ); |
1937 |
t::lib::Mocks::mock_preference( 'HoldsLog', 0 ); |
| 1907 |
|
1938 |
|
| 1908 |
- |
|
|