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

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

Return to bug 14504