diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 202f74862e..6783643d4f 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 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} + ); }