Lines 42-48
my @where = @{ $OPTIONS->{where} };
Link Here
|
42 |
|
42 |
|
43 |
pod2usage( -verbose => 2 ) if $OPTIONS->{flags}->{manual}; |
43 |
pod2usage( -verbose => 2 ) if $OPTIONS->{flags}->{manual}; |
44 |
pod2usage( -verbose => 1 ) if $OPTIONS->{flags}->{help}; |
44 |
pod2usage( -verbose => 1 ) if $OPTIONS->{flags}->{help}; |
45 |
pod2usage( -verbose => 1 -msg => 'You must supply at least one --where option' ) if scalar @where == 0; |
45 |
pod2usage( -verbose => 1 -msg => 'You must supply at least one --where option' ) if scalar @where == 0; |
46 |
|
46 |
|
47 |
sub verbose { |
47 |
sub verbose { |
48 |
say @_ if $OPTIONS->{flags}->{verbose}; |
48 |
say @_ if $OPTIONS->{flags}->{verbose}; |
Lines 59-65
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() )
Link Here
|
59 |
|
59 |
|
60 |
my $status = C4::Items::ItemSafeToDelete( $item->{biblionumber}, $item->{itemnumber} ); |
60 |
my $status = C4::Items::ItemSafeToDelete( $item->{biblionumber}, $item->{itemnumber} ); |
61 |
if( $status eq '1' ) { |
61 |
if( $status eq '1' ) { |
62 |
C4::Items::DelItemCheck( $item->{biblionumber}, $item->{itemnumber} ); |
62 |
C4::Items::DelItemCheck( $item->{biblionumber}, $item->{itemnumber} ) |
|
|
63 |
if $OPTIONS->{flags}->{commit}; |
63 |
verbose "Deleting '$item->{itemnumber}'"; |
64 |
verbose "Deleting '$item->{itemnumber}'"; |
64 |
} else { |
65 |
} else { |
65 |
verbose "Item '$item->{itemnumber}' not deletd: $status"; |
66 |
verbose "Item '$item->{itemnumber}' not deletd: $status"; |
66 |
- |
|
|