From f166ebbdf51c1f78152f71187960e32ae8716aa3 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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

Signed-off-by: Andrew Fuerste-Henry <andrew@bywatersolutions.com>

Signed-off-by: Sarah Daviau <sdaviau@arlingtonva.us>
---
 acqui/addorderiso2709.pl | 6 ++++++
 acqui/neworderempty.pl   | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
index a1ff5a70f4..7690129ae7 100755
--- a/acqui/addorderiso2709.pl
+++ b/acqui/addorderiso2709.pl
@@ -198,6 +198,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 d3638f27af..991dac517d 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -179,6 +179,12 @@ 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