From 81c00c71126909b339257a1f73d45570839ed719 Mon Sep 17 00:00:00 2001 From: Benjamin Rokseth Date: Tue, 3 Apr 2018 00:09:04 +0200 Subject: [PATCH] Bug 20271: delete biblio and biblio_metadata in one go Signed-off-by: Brendan A Gallagher Signed-off-by: Martin Renvoize Signed-off-by: Josef Moravec --- C4/Biblio.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 7a3daf5..5340974 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -3090,7 +3090,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"); } -- 2.1.4