Bug 24469: Move the new queries to a dedicated ImportBatch subroutine

[srvgit] / acqui / addorderiso2709.pl

diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
index 6783643..0e3df3b 100755 (executable)
--- a/acqui/addorderiso2709.pl
+++ b/acqui/addorderiso2709.pl
@@ -199,11 +199,7 @@ 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}
-        );
+        SetMatchedBiblionumber( $biblio->{import_record_id}, $biblionumber );
 
         # Add items from MarcItemFieldsToOrder
         my @homebranches = $input->multi_param('homebranch_' . $biblio_count);