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

(-)a/C4/Biblio.pm (-2 / +1 lines)
Lines 3083-3089 C<$biblionumber> - the biblionumber of the biblio to be deleted Link Here
3083
3083
3084
sub _koha_delete_biblio {
3084
sub _koha_delete_biblio {
3085
    my ( $dbh, $biblionumber ) = @_;
3085
    my ( $dbh, $biblionumber ) = @_;
3086
3086
    _koha_delete_biblio_metadata( $biblionumber );
3087
    my $sth = $dbh->prepare("UPDATE biblio SET deleted_at = NOW() WHERE biblionumber=?");
3087
    my $sth = $dbh->prepare("UPDATE biblio SET deleted_at = NOW() WHERE biblionumber=?");
3088
    return $sth->execute($biblionumber) ? undef : ($DBI::errstr || "unknown error");
3088
    return $sth->execute($biblionumber) ? undef : ($DBI::errstr || "unknown error");
3089
}
3089
}
3090
- 

Return to bug 20271