From c882bc9a776f89991911f5c6ba33fb3a793fa955 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 12 Feb 2020 16:22:02 +0100 Subject: [PATCH] Bug 24469: Record biblionumber in import_biblio when adding to basket via file The column import_biblios.matched_biblionumber was not populated when an order is created from a staged file. Test plan: A/ Create a new order from a stage file. Use the "Save" button at the bottom of the "Add orders from" page Then note the matched_biblionumber value. It should be populated correctly B/ Import again the same record, this time you will have to use the "Add order" link in the list of order (ie. not the "Save" button) Note the matched_biblionumber value. It should be populated correctly --- acqui/addorderiso2709.pl | 6 ++++++ acqui/neworderempty.pl | 5 +++++ 2 files changed, 11 insertions(+) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 224f38a0ab..d820f18853 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -199,6 +199,12 @@ if ($op eq ""){ SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); } + my $dbh = C4::Context->dbh; + $dbh->do( + q|UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?|, + undef, $biblionumber, $biblio->{import_record_id} + ); + # Add items from MarcItemFieldsToOrder my @homebranches = $input->multi_param('homebranch_' . $biblio_count); my $count = scalar @homebranches; diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index f41e598861..0d8f6d807e 100755 --- a/acqui/neworderempty.pl +++ b/acqui/neworderempty.pl @@ -169,6 +169,11 @@ if ( $ordernumber eq '' and defined $params->{'breedingid'}){ # get the price if there is one. $listprice = GetMarcPrice($marcrecord, $marcflavour); SetImportRecordStatus($params->{'breedingid'}, 'imported'); + my $dbh = C4::Context->dbh; + $dbh->do( + q|UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?|, + undef, $biblionumber, $params->{breedingid} + ); } -- 2.11.0