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

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

Return to bug 20271