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