From 2f786aea56b8e9d768fb02a4446a0976a299db73 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Tue, 5 Nov 2024 16:32:50 +0000 Subject: [PATCH] Bug 34355: (QA follow-up) Tidy Signed-off-by: Nick Clemens --- Koha/MarcOrder.pm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/Koha/MarcOrder.pm b/Koha/MarcOrder.pm index 84ac5345443..d2cb6abeb24 100644 --- a/Koha/MarcOrder.pm +++ b/Koha/MarcOrder.pm @@ -527,7 +527,6 @@ sub add_items_from_import_record { } } - =head3 match_file_to_account my $file_match = Koha::MarcOrder->match_file_to_account({ @@ -960,7 +959,7 @@ sub create_items_and_generate_order_hash { my $itemcreation = 0; my @itemnumbers; - if( C4::Context->preference('AcqCreateItem') ne 'cataloguing' ) { + if ( C4::Context->preference('AcqCreateItem') ne 'cataloguing' ) { for ( my $i = 0 ; $i < $loop_limit ; $i++ ) { $itemcreation = 1; my $item = Koha::Item->new( @@ -1106,11 +1105,14 @@ sub create_items_and_generate_order_hash { $order->store; my $basket = Koha::Acquisition::Baskets->find($basket_id); - if ( C4::Context->preference('AcqCreateItem') ne 'cataloguing' && $basket->effective_create_items eq 'ordering' && !$basket->is_standing ) { - my $tags = $fields->{tags} || []; - my $subfields = $fields->{subfields} || []; + if ( C4::Context->preference('AcqCreateItem') ne 'cataloguing' + && $basket->effective_create_items eq 'ordering' + && !$basket->is_standing ) + { + my $tags = $fields->{tags} || []; + my $subfields = $fields->{subfields} || []; my $field_values = $fields->{field_values} || []; - my $serials = $fields->{serials} || []; + my $serials = $fields->{serials} || []; my $xml = TransformHtmlToXml( $tags, $subfields, $field_values ); my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); for ( my $qtyloop = 1 ; $qtyloop <= $fields->{c_quantity} ; $qtyloop++ ) { @@ -1248,5 +1250,4 @@ sub _create_item_fields_from_syspref { return $item_fields; } - 1; -- 2.39.3 (Apple Git-146)