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 |
- |
|
|