@@ -, +, @@ -biblio* --- C4/Biblio.pm | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -414,7 +414,7 @@ sub DelBiblio { # and we would have no way to remove it (except manually in zebra, but I bet it would be very hard to handle the problem) ModZebra( $biblionumber, "recordDelete", "biblioserver" ); - # delete biblioitems and items from Koha tables and save in deletedbiblioitems,deleteditems + # mark biblioitems and items as deleted $sth = $dbh->prepare("SELECT biblioitemnumber FROM biblioitems WHERE biblionumber=? AND deleted_at IS NULL"); $sth->execute($biblionumber); while ( my $biblioitemnumber = $sth->fetchrow ) { @@ -424,11 +424,6 @@ sub DelBiblio { return $error if $error; } - - # delete biblio from Koha tables and save in deletedbiblio - # must do this *after* _koha_delete_biblioitems, otherwise - # delete cascade will prevent deletedbiblioitems rows - # from being generated by _koha_delete_biblioitems $error = _koha_delete_biblio( $dbh, $biblionumber ); logaction( "CATALOGUING", "DELETE", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog"); @@ -3078,11 +3073,11 @@ sub _koha_add_biblioitem { $error = _koha_delete_biblio($dbh,$biblionumber); -Internal sub for deleting from biblio table -- also saves to deletedbiblio +Internal sub for deleting from biblio table C<$dbh> - the database handle -C<$biblionumber> - the biblionumber of the biblio to be deleted +C<$biblionumber> - the biblionumber of the biblio (and metadata) to be marked as deleted =cut @@ -3099,10 +3094,10 @@ sub _koha_delete_biblio { $error = _koha_delete_biblioitems($dbh,$biblioitemnumber); -Internal sub for deleting from biblioitems table -- also saves to deletedbiblioitems +Internal sub for deleting from biblioitems table C<$dbh> - the database handle -C<$biblionumber> - the biblioitemnumber of the biblioitem to be deleted +C<$biblionumber> - the biblioitemnumber of the biblioitem to be marked as deleted =cut @@ -3118,7 +3113,7 @@ sub _koha_delete_biblioitems { $error = _koha_delete_biblio_metadata($biblionumber); -C<$biblionumber> - the biblionumber of the biblio metadata to be deleted +C<$biblionumber> - the biblionumber of the biblio metadata to be marked as deleted =cut --