@@ -, +, @@ to basket via file --- acqui/addorderiso2709.pl | 6 ++++++ acqui/neworderempty.pl | 6 ++++++ 2 files changed, 12 insertions(+) --- a/acqui/addorderiso2709.pl +++ a/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; --- a/acqui/neworderempty.pl +++ a/acqui/neworderempty.pl @@ -170,6 +170,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} + ); } --