|
Lines 24-29
use Try::Tiny;
Link Here
|
| 24 |
|
24 |
|
| 25 |
use C4::Context; |
25 |
use C4::Context; |
| 26 |
use C4::Biblio qw( GetMarcStructure GetMarcFromKohaField ); |
26 |
use C4::Biblio qw( GetMarcStructure GetMarcFromKohaField ); |
|
|
27 |
use C4::Circulation; |
| 27 |
|
28 |
|
| 28 |
use Koha::Database; |
29 |
use Koha::Database; |
| 29 |
use Koha::SearchEngine::Indexer; |
30 |
use Koha::SearchEngine::Indexer; |
|
Lines 328-334
sub batch_update {
Link Here
|
| 328 |
my $itemlost_pre = $item->itemlost; |
329 |
my $itemlost_pre = $item->itemlost; |
| 329 |
$item->set($new_values)->store({skip_record_index => 1}); |
330 |
$item->set($new_values)->store({skip_record_index => 1}); |
| 330 |
|
331 |
|
| 331 |
LostItem( |
332 |
C4::Circulation::LostItem( |
| 332 |
$item->itemnumber, 'batchmod', undef, |
333 |
$item->itemnumber, 'batchmod', undef, |
| 333 |
{ skip_record_index => 1 } |
334 |
{ skip_record_index => 1 } |
| 334 |
) if $item->itemlost |
335 |
) if $item->itemlost |
|
Lines 337-343
sub batch_update {
Link Here
|
| 337 |
|
338 |
|
| 338 |
push @modified_itemnumbers, $item->itemnumber if $modified || $modified_holds_priority; |
339 |
push @modified_itemnumbers, $item->itemnumber if $modified || $modified_holds_priority; |
| 339 |
$modified_fields += $modified + $modified_holds_priority; |
340 |
$modified_fields += $modified + $modified_holds_priority; |
| 340 |
})}; |
341 |
})} |
|
|
342 |
catch { |
| 343 |
warn $_ |
| 344 |
}; |
| 341 |
|
345 |
|
| 342 |
if ( $callback ) { |
346 |
if ( $callback ) { |
| 343 |
$callback->(++$i); |
347 |
$callback->(++$i); |
| 344 |
- |
|
|