Lines 56-62
use DateTime::Format::MySQL;
Link Here
|
56 |
# debugging; so please don't remove this |
56 |
# debugging; so please don't remove this |
57 |
|
57 |
|
58 |
use Koha::AuthorisedValues; |
58 |
use Koha::AuthorisedValues; |
59 |
use Koha::DateUtils qw( dt_from_string ); |
59 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
60 |
use Koha::Database; |
60 |
use Koha::Database; |
61 |
|
61 |
|
62 |
use Koha::Biblios; |
62 |
use Koha::Biblios; |
Lines 402-408
sub ModDateLastSeen {
Link Here
|
402 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 0 }); |
402 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 0 }); |
403 |
|
403 |
|
404 |
my $item = Koha::Items->find($itemnumber); |
404 |
my $item = Koha::Items->find($itemnumber); |
405 |
$item->datelastseen(dt_from_string->ymd); |
405 |
$item->datelastseen(dt_from_string); |
406 |
my $log = $item->itemlost && !$leave_item_lost ? 1 : 0; # If item was lost, record the change to the item |
406 |
my $log = $item->itemlost && !$leave_item_lost ? 1 : 0; # If item was lost, record the change to the item |
407 |
$item->itemlost(0) unless $leave_item_lost; |
407 |
$item->itemlost(0) unless $leave_item_lost; |
408 |
$item->store({ log_action => $log, skip_record_index => $params->{skip_record_index}, skip_holds_queue => $params->{skip_holds_queue} }); |
408 |
$item->store({ log_action => $log, skip_record_index => $params->{skip_record_index}, skip_holds_queue => $params->{skip_holds_queue} }); |
409 |
- |
|
|