View | Details | Raw Unified | Return to bug 20271
Collapse All | Expand All

(-)a/C4/Biblio.pm (-12 / +6 lines)
Lines 414-420 sub DelBiblio { Link Here
414
    #   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)
414
    #   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)
415
    ModZebra( $biblionumber, "recordDelete", "biblioserver" );
415
    ModZebra( $biblionumber, "recordDelete", "biblioserver" );
416
416
417
    # delete biblioitems and items from Koha tables and save in deletedbiblioitems,deleteditems
417
    # mark biblioitems and items as deleted
418
    $sth = $dbh->prepare("SELECT biblioitemnumber FROM biblioitems WHERE biblionumber=? AND deleted_at IS NULL");
418
    $sth = $dbh->prepare("SELECT biblioitemnumber FROM biblioitems WHERE biblionumber=? AND deleted_at IS NULL");
419
    $sth->execute($biblionumber);
419
    $sth->execute($biblionumber);
420
    while ( my $biblioitemnumber = $sth->fetchrow ) {
420
    while ( my $biblioitemnumber = $sth->fetchrow ) {
Lines 424-434 sub DelBiblio { Link Here
424
        return $error if $error;
424
        return $error if $error;
425
    }
425
    }
426
426
427
428
    # delete biblio from Koha tables and save in deletedbiblio
429
    # must do this *after* _koha_delete_biblioitems, otherwise
430
    # delete cascade will prevent deletedbiblioitems rows
431
    # from being generated by _koha_delete_biblioitems
432
    $error = _koha_delete_biblio( $dbh, $biblionumber );
427
    $error = _koha_delete_biblio( $dbh, $biblionumber );
433
428
434
    logaction( "CATALOGUING", "DELETE", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog");
429
    logaction( "CATALOGUING", "DELETE", $biblionumber, "biblio" ) if C4::Context->preference("CataloguingLog");
Lines 3078-3088 sub _koha_add_biblioitem { Link Here
3078
3073
3079
  $error = _koha_delete_biblio($dbh,$biblionumber);
3074
  $error = _koha_delete_biblio($dbh,$biblionumber);
3080
3075
3081
Internal sub for deleting from biblio table -- also saves to deletedbiblio
3076
Internal sub for deleting from biblio table
3082
3077
3083
C<$dbh> - the database handle
3078
C<$dbh> - the database handle
3084
3079
3085
C<$biblionumber> - the biblionumber of the biblio to be deleted
3080
C<$biblionumber> - the biblionumber of the biblio (and metadata) to be marked as deleted
3086
3081
3087
=cut
3082
=cut
3088
3083
Lines 3099-3108 sub _koha_delete_biblio { Link Here
3099
3094
3100
  $error = _koha_delete_biblioitems($dbh,$biblioitemnumber);
3095
  $error = _koha_delete_biblioitems($dbh,$biblioitemnumber);
3101
3096
3102
Internal sub for deleting from biblioitems table -- also saves to deletedbiblioitems
3097
Internal sub for deleting from biblioitems table
3103
3098
3104
C<$dbh> - the database handle
3099
C<$dbh> - the database handle
3105
C<$biblionumber> - the biblioitemnumber of the biblioitem to be deleted
3100
C<$biblionumber> - the biblioitemnumber of the biblioitem to be  marked as deleted
3106
3101
3107
=cut
3102
=cut
3108
3103
Lines 3118-3124 sub _koha_delete_biblioitems { Link Here
3118
3113
3119
  $error = _koha_delete_biblio_metadata($biblionumber);
3114
  $error = _koha_delete_biblio_metadata($biblionumber);
3120
3115
3121
C<$biblionumber> - the biblionumber of the biblio metadata to be deleted
3116
C<$biblionumber> - the biblionumber of the biblio metadata to be  marked as deleted
3122
3117
3123
=cut
3118
=cut
3124
3119
3125
- 

Return to bug 20271