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

(-)a/misc/cronjobs/delete_records_via_leader.pl (-5 / +4 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
use Data::Dumper;
90
foreach my $m (@metadatas) {
91
foreach my $m (@metadatas) {
91
    my $biblionumber = $m->get_column('biblionumber');
92
    my $biblionumber = $m->get_column('biblionumber');
92
93
Lines 95-104 foreach my $m (@metadatas) { Link Here
95
    if ($delete_items) {
96
    if ($delete_items) {
96
        my $deleted_count = 0;
97
        my $deleted_count = 0;
97
        my $biblio = Koha::Biblios->find( $biblionumber );
98
        my $biblio = Koha::Biblios->find( $biblionumber );
98
        my @items = $biblio ? $biblio->items : ();
99
	my @items = Koha::Items->search( { biblionumber => $biblionumber } );
99
        foreach my $item ( @items ) {
100
        foreach my $item ( @items ) {
100
            my $itemnumber = $item->itemnumber();
101
            my $itemnumber = $item->itemnumber;
101
102
            my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
102
            my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
103
            $error = undef if $error eq '1';
103
            $error = undef if $error eq '1';
104
104
105
- 

Return to bug 24324