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