|
Lines 22-32
use Pod::Usage qw( pod2usage );
Link Here
|
| 22 |
|
22 |
|
| 23 |
use Koha::Script -cron; |
23 |
use Koha::Script -cron; |
| 24 |
use C4::Biblio qw( DelBiblio ); |
24 |
use C4::Biblio qw( DelBiblio ); |
| 25 |
use C4::Context; |
|
|
| 26 |
use Koha::Items; |
25 |
use Koha::Items; |
| 27 |
|
26 |
|
| 28 |
my $dbh = C4::Context->dbh(); |
|
|
| 29 |
|
| 30 |
my @where = (); |
27 |
my @where = (); |
| 31 |
my $verbose = 0; |
28 |
my $verbose = 0; |
| 32 |
my $help = 0; |
29 |
my $help = 0; |
|
Lines 58-64
my $deleted_string = $commit ? "Deleted" : "Would have deleted";
Link Here
|
| 58 |
|
55 |
|
| 59 |
my $items = Koha::Items->search( \$where_clause ); |
56 |
my $items = Koha::Items->search( \$where_clause ); |
| 60 |
|
57 |
|
| 61 |
DELITEM: while ( my $item = $items->next ){ #$sth->fetchrow_hashref() ) { |
58 |
DELITEM: while ( my $item = $items->next ){ |
| 62 |
|
59 |
|
| 63 |
my $holdings_count = $item->biblio->items->count; |
60 |
my $holdings_count = $item->biblio->items->count; |
| 64 |
my $error; |
61 |
my $error; |
| 65 |
- |
|
|