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

(-)a/misc/cronjobs/delete_records_via_leader.pl (-4 / +4 lines)
Lines 36-42 use Getopt::Long; Link Here
36
use C4::Biblio;
36
use C4::Biblio;
37
use C4::Items;
37
use C4::Items;
38
use Koha::Database;
38
use Koha::Database;
39
use Koha::Biblioitems;
39
use Koha::Biblios;
40
use Koha::Biblio::Metadatas;
40
use Koha::Biblio::Metadatas;
41
41
42
my $delete_items;
42
my $delete_items;
Lines 86-93 foreach my $m (@metadatas) { Link Here
86
86
87
    if ($delete_items) {
87
    if ($delete_items) {
88
        my $deleted_count = 0;
88
        my $deleted_count = 0;
89
        my $biblioitem = Koha::Biblioitems->find( $biblionumber );
89
        my $biblio = Koha::Biblios->find( $biblionumber );
90
        foreach my $item ( $biblioitem->items() ) {
90
        my @items = $biblio ? $biblio->items : ();
91
        foreach my $item ( @items ) {
91
            my $itemnumber = $item->itemnumber();
92
            my $itemnumber = $item->itemnumber();
92
93
93
            my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
94
            my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
94
- 

Return to bug 17196