From 488a6f98a6b7a1527ed801f4eef21013f8a2bbf9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 18 Mar 2019 14:20:51 -0300 Subject: [PATCH] Bug 23463: Replace _set_derived_columns_for_add Remove the unique call to _set_derived_columns_for_add Even if design to deal with other values it only dealts with cn_sort Signed-off-by: Tomas Cohen Arazi Signed-off-by: Nick Clemens Signed-off-by: Martin Renvoize --- C4/Items.pm | 1 - Koha/Item.pm | 12 +++++++++++- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index a3be2ddfa0..9f91ffaaf3 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -202,7 +202,6 @@ sub AddItem { $unlinked_item_subfields = shift; } - _set_derived_columns_for_add($item); $item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); my ( $itemnumber, $error ) = _koha_new_item( $item, $item->{barcode} ); diff --git a/Koha/Item.pm b/Koha/Item.pm index 8528dbcdcf..b820cc9cab 100644 --- a/Koha/Item.pm +++ b/Koha/Item.pm @@ -28,6 +28,8 @@ use Koha::DateUtils qw( dt_from_string ); use C4::Context; use C4::Circulation; use C4::Reserves; +use C4::ClassSource; # FIXME We would like to avoid that + use Koha::Checkouts; use Koha::CirculationRules; use Koha::Item::Transfer::Limits; @@ -67,8 +69,8 @@ sub store { $self->itype($self->biblio->biblioitem->itemtype); } + my $today = dt_from_string; unless ( $self->in_storage ) { #AddItem - my $today = dt_from_string; unless ( $self->permanent_location ) { $self->permanent_location($self->location); } @@ -79,6 +81,14 @@ sub store { $self->datelastseen($today); } + unless ( $self->dateaccessioned ) { + $self->dateaccessioned($today); + } + + if ( $self->itemcallnumber ) { # This could be improved, we should recalculate it only if changed + my $cn_sort = GetClassSort($self->cn_source, $self->itemcallnumber, ""); + $self->cn_sort($cn_sort); + } } unless ( $self->dateaccessioned ) { -- 2.39.5