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

(-)a/C4/Biblio.pm (-2 / +1 lines)
Lines 3126-3132 C<$biblionumber> - the biblionumber of the biblio to be deleted Link Here
3126
3126
3127
sub _koha_delete_biblio {
3127
sub _koha_delete_biblio {
3128
    my ( $dbh, $biblionumber ) = @_;
3128
    my ( $dbh, $biblionumber ) = @_;
3129
3129
    _koha_delete_biblio_metadata( $biblionumber );
3130
    my $sth = $dbh->prepare("UPDATE biblio SET deleted_at = NOW() WHERE biblionumber=?");
3130
    my $sth = $dbh->prepare("UPDATE biblio SET deleted_at = NOW() WHERE biblionumber=?");
3131
    return $sth->execute($biblionumber) ? undef : ($DBI::errstr || "unknown error");
3131
    return $sth->execute($biblionumber) ? undef : ($DBI::errstr || "unknown error");
3132
}
3132
}
3133
- 

Return to bug 20271