@@ -, +, @@ --- C4/Biblio.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -3083,7 +3083,7 @@ C<$biblionumber> - the biblionumber of the biblio to be deleted sub _koha_delete_biblio { my ( $dbh, $biblionumber ) = @_; - + _koha_delete_biblio_metadata( $biblionumber ); my $sth = $dbh->prepare("UPDATE biblio SET deleted_at = NOW() WHERE biblionumber=?"); return $sth->execute($biblionumber) ? undef : ($DBI::errstr || "unknown error"); } --