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