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 406-412
sub ModDateLastSeen {
Link Here
|
406 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 0 }); |
406 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 0 }); |
407 |
|
407 |
|
408 |
my $item = Koha::Items->find($itemnumber); |
408 |
my $item = Koha::Items->find($itemnumber); |
409 |
$item->datelastseen(dt_from_string->ymd); |
409 |
$item->datelastseen(dt_from_string); |
410 |
my $log = $item->itemlost && !$leave_item_lost ? 1 : 0; # If item was lost, record the change to the item |
410 |
my $log = $item->itemlost && !$leave_item_lost ? 1 : 0; # If item was lost, record the change to the item |
411 |
$item->itemlost(0) unless $leave_item_lost; |
411 |
$item->itemlost(0) unless $leave_item_lost; |
412 |
$item->store({ log_action => $log, skip_record_index => $params->{skip_record_index}, skip_holds_queue => $params->{skip_holds_queue} }); |
412 |
$item->store({ log_action => $log, skip_record_index => $params->{skip_record_index}, skip_holds_queue => $params->{skip_holds_queue} }); |
413 |
- |
|
|