From 1bea84454bf4811c3ce31b99fb78ce36f0993a4a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 18 Mar 2019 14:15:37 -0300 Subject: [PATCH] Bug 23463: Remove _set_defaults_for_add _set_defaults_for_add is no longer needed as it is handled by dbic and koha::object->store --- C4/Items.pm | 43 ------------------------------------------- Koha/Item.pm | 4 ++++ 2 files changed, 4 insertions(+), 43 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index d51a721ac7..ecbc551597 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -203,7 +203,6 @@ sub AddItem { $unlinked_item_subfields = shift; } - _set_defaults_for_add($item); _set_derived_columns_for_add($item); $item->{'more_subfields_xml'} = _get_unlinked_subfields_xml($unlinked_item_subfields); @@ -305,7 +304,6 @@ sub AddItemBatchFromMarc { next ITEMFIELD; } - _set_defaults_for_add($item); _set_derived_columns_for_add($item); my ( $itemnumber, $error ) = _koha_new_item( $item, $item->{barcode} ); warn $error if $error; @@ -1488,47 +1486,6 @@ sub _calc_items_cn_sort { $item->{'items.cn_sort'} = GetClassSort($source_values->{'items.cn_source'}, $source_values->{'itemcallnumber'}, ""); } -=head2 _set_defaults_for_add - - _set_defaults_for_add($item_hash); - -Given an item hash representing an item to be added, set -correct default values for columns whose default value -is not handled by the DBMS. This includes the following -columns: - -=over 2 - -=item * - -C - -=item * - -C - -=item * - -C - -=item * - -C - -=item * - -C - -=back - -=cut - -sub _set_defaults_for_add { - my $item = shift; - $item->{dateaccessioned} ||= output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); - $item->{$_} ||= 0 for (qw( notforloan damaged itemlost withdrawn)); -} - =head2 _koha_new_item my ($itemnumber,$error) = _koha_new_item( $item, $barcode ); diff --git a/Koha/Item.pm b/Koha/Item.pm index 333fbb8a36..d2fd7937c2 100644 --- a/Koha/Item.pm +++ b/Koha/Item.pm @@ -80,6 +80,10 @@ sub store { } + unless ( $self->dateaccessioned ) { + $self->dateaccessioned($today); + } + return $self->SUPER::store; } -- 2.11.0