Attachment #126037 for bug #29202

View | Details | Raw Unified | Return to bug 29202
Collapse All | Expand All




                 exists $updated_columns{itemlost}
              or exists $updated_columns{withdrawn}
              or exists $updated_columns{damaged}
              or exists $updated_columns{replacementprice}
        ) ? $self->get_from_storage : undef;

        # Update *_on  fields if needed
        # FIXME: Why not for AddItem as well?
        my @fields = qw( itemlost withdrawn damaged replacementprice );
        for my $field (@fields) {

            # If the field is defined but empty or 0, we are




my $new_order_object = Koha::Acquisition::Orders->find( $new_ordernumber ); # FIXME we should not need to refetch it
my $items = $new_order_object->items;
while ( my $item = $items->next )  {
    $item->update(
        {
            booksellerid     => $booksellerid,
            dateaccessioned  => $datereceived,
            datelastseen     => $datereceived,
            price            => $unitprice,
            replacementprice => $replacementprice,
        }
    );
}

if ($suggestion_id) {
- 

Return to bug 29202

Lines 137-147 sub store { Link Here

(-)a/Koha/Item.pm (-1 / +2 lines)
137	exists $updated_columns{itemlost}	137	exists $updated_columns{itemlost}
138	or exists $updated_columns{withdrawn}	138	or exists $updated_columns{withdrawn}
139	or exists $updated_columns{damaged}	139	or exists $updated_columns{damaged}
		140	or exists $updated_columns{replacementprice}
140	) ? $self->get_from_storage : undef;	141	) ? $self->get_from_storage : undef;
141		142
142	# Update *_on fields if needed	143	# Update *_on fields if needed
143	# FIXME: Why not for AddItem as well?	144	# FIXME: Why not for AddItem as well?
144	my @fields = qw( itemlost withdrawn damaged );	145	my @fields = qw( itemlost withdrawn damaged replacementprice );
145	for my $field (@fields) {	146	for my $field (@fields) {
146		147
147	# If the field is defined but empty or 0, we are	148	# If the field is defined but empty or 0, we are

Lines 174-187 if ($quantityrec > $origquantityrec ) { Link Here

(-)a/acqui/finishreceive.pl (-9 / +9 lines)
174	my $new_order_object = Koha::Acquisition::Orders->find( $new_ordernumber ); # FIXME we should not need to refetch it	174	my $new_order_object = Koha::Acquisition::Orders->find( $new_ordernumber ); # FIXME we should not need to refetch it
175	my $items = $new_order_object->items;	175	my $items = $new_order_object->items;
176	while ( my $item = $items->next ) {	176	while ( my $item = $items->next ) {
177	$item->update({	177	$item->update(
178	booksellerid => $booksellerid,	178	{
179	dateaccessioned => $datereceived,	179	booksellerid => $booksellerid,
180	datelastseen => $datereceived,	180	dateaccessioned => $datereceived,
181	price => $unitprice,	181	datelastseen => $datereceived,
182	replacementprice => $replacementprice,	182	price => $unitprice,
183	replacementpricedate => $datereceived,	183	replacementprice => $replacementprice,
184	});	184	}
		185	);
185	}	186	}
186		187
187	if ($suggestion_id) {	188	if ($suggestion_id) {
188	-