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

(-)a/misc/cronjobs/delete_records_via_leader.pl (-5 / +3 lines)
Lines 39-44 use C4::Items; Link Here
39
use Koha::Database;
39
use Koha::Database;
40
use Koha::Biblios;
40
use Koha::Biblios;
41
use Koha::Biblio::Metadatas;
41
use Koha::Biblio::Metadatas;
42
use Koha::Items;
42
43
43
my $delete_items;
44
my $delete_items;
44
my $confirm;
45
my $confirm;
Lines 86-92 my $total_records_count = @metadatas; Link Here
86
my $deleted_records_count = 0;
87
my $deleted_records_count = 0;
87
my $total_items_count     = 0;
88
my $total_items_count     = 0;
88
my $deleted_items_count   = 0;
89
my $deleted_items_count   = 0;
89
90
foreach my $m (@metadatas) {
90
foreach my $m (@metadatas) {
91
    my $biblionumber = $m->get_column('biblionumber');
91
    my $biblionumber = $m->get_column('biblionumber');
92
92
Lines 95-104 foreach my $m (@metadatas) { Link Here
95
    if ($delete_items) {
95
    if ($delete_items) {
96
        my $deleted_count = 0;
96
        my $deleted_count = 0;
97
        my $biblio = Koha::Biblios->find( $biblionumber );
97
        my $biblio = Koha::Biblios->find( $biblionumber );
98
        my @items = $biblio ? $biblio->items : ();
98
    my @items = Koha::Items->search( { biblionumber => $biblionumber } );
99
        foreach my $item ( @items ) {
99
        foreach my $item ( @items ) {
100
            my $itemnumber = $item->itemnumber();
100
            my $itemnumber = $item->itemnumber;
101
102
            my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
101
            my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
103
            $error = undef if $error eq '1';
102
            $error = undef if $error eq '1';
104
103
105
- 

Return to bug 24324