View | Details | Raw Unified | Return to bug 14504
Collapse All | Expand All

(-)a/misc/cronjobs/delete_items.pl (-15 / +8 lines)
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
- 

Return to bug 14504