Lines 56-76
$GLOBAL->{sth}->{target_items} = $dbh->prepare( $query->{target_items} . $where_
Link Here
|
56 |
$GLOBAL->{sth}->{target_items}->execute(); |
56 |
$GLOBAL->{sth}->{target_items}->execute(); |
57 |
|
57 |
|
58 |
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() ) { |
58 |
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() ) { |
59 |
my $issue = GetOpenIssue( $item->{itemnumber} ); |
59 |
my $del_check_options = $OPTIONS->{flags}->{commit} |
60 |
my $holds = GetItemHolds( $item->{biblionumber}, $item->{itemnumber} ); |
60 |
? undef |
61 |
|
61 |
: { do_not_commit => 1 }; |
62 |
if( defined $issue ) { |
62 |
my $status = C4::Items::DelItemCheck( $dbh, $item->{itemnumber}, $item->{biblionumber}, $del_check_options ); |
63 |
verbose "Cannot delete '$item->{itemnumber}' -- item is checked out."; |
63 |
if( $status == 1 ) { |
64 |
next DELITEM; |
64 |
verbose "Deleting '$item->{itemnumber}'"; |
65 |
} |
65 |
} else { |
66 |
|
66 |
verbose "Item '$item->{itemnumber}' not deletd: $status"; |
67 |
if( $holds ) { |
|
|
68 |
verbose "Cannot delete '$item->{itemnumber}' -- item has open holds."; |
69 |
next DELITEM; |
70 |
} |
67 |
} |
71 |
|
|
|
72 |
verbose "Deleting '$item->{itemnumber}' "; |
73 |
C4::Items::DelItem( { itemnumber => $item->{itemnumber} } ) if $OPTIONS->{flags}->{commit} ; |
74 |
} |
68 |
} |
75 |
|
69 |
|
76 |
=head1 NAME |
70 |
=head1 NAME |
77 |
- |
|
|