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