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

(-)a/C4/Acquisition.pm (-2 / +2 lines)
Lines 1916-1924 sub DelOrder { Link Here
1916
    my $order = Koha::Acquisition::Orders->find($ordernumber);
1916
    my $order = Koha::Acquisition::Orders->find($ordernumber);
1917
    my $items = $order->items;
1917
    my $items = $order->items;
1918
    while ( my $item = $items->next ) { # Should be moved to Koha::Acquisition::Order->delete
1918
    while ( my $item = $items->next ) { # Should be moved to Koha::Acquisition::Order->delete
1919
        my $delcheck = C4::Items::DelItemCheck( $bibnum, $item->itemnumber );
1919
        my $delcheck = $item->safe_delete;
1920
1920
1921
        if($delcheck != 1) {
1921
        if($delcheck ne '1') {
1922
            $error->{'delitem'} = 1;
1922
            $error->{'delitem'} = 1;
1923
        }
1923
        }
1924
    }
1924
    }
(-)a/C4/ImportBatch.pm (-2 / +3 lines)
Lines 910-917 sub BatchRevertItems { Link Here
910
    $sth->bind_param(1, $import_record_id);
910
    $sth->bind_param(1, $import_record_id);
911
    $sth->execute();
911
    $sth->execute();
912
    while (my $row = $sth->fetchrow_hashref()) {
912
    while (my $row = $sth->fetchrow_hashref()) {
913
        my $error = DelItemCheck( $biblionumber, $row->{'itemnumber'});
913
        my $item = Koha::Items->find($row->{itemnumber});
914
        if ($error == 1){
914
        my $error = $item->safe_delete;
915
        if ($error eq '1'){
915
            my $updsth = $dbh->prepare("UPDATE import_items SET status = ? WHERE import_items_id = ?");
916
            my $updsth = $dbh->prepare("UPDATE import_items SET status = ? WHERE import_items_id = ?");
916
            $updsth->bind_param(1, 'reverted');
917
            $updsth->bind_param(1, 'reverted');
917
            $updsth->bind_param(2, $row->{'import_items_id'});
918
            $updsth->bind_param(2, $row->{'import_items_id'});
(-)a/C4/Items.pm (-87 lines)
Lines 40-47 BEGIN { Link Here
40
        GetHostItemsInfo
40
        GetHostItemsInfo
41
        get_hostitemnumbers_of
41
        get_hostitemnumbers_of
42
        GetHiddenItemnumbers
42
        GetHiddenItemnumbers
43
        ItemSafeToDelete
44
        DelItemCheck
45
        MoveItemFromBiblio
43
        MoveItemFromBiblio
46
        CartToShelf
44
        CartToShelf
47
        GetAnalyticsCount
45
        GetAnalyticsCount
Lines 1368-1458 sub MoveItemFromBiblio { Link Here
1368
    return;
1366
    return;
1369
}
1367
}
1370
1368
1371
=head2 ItemSafeToDelete
1372
1373
   ItemSafeToDelete( $biblionumber, $itemnumber);
1374
1375
Exported function (core API) for checking whether an item record is safe to delete.
1376
1377
returns 1 if the item is safe to delete,
1378
1379
"book_on_loan" if the item is checked out,
1380
1381
"not_same_branch" if the item is blocked by independent branches,
1382
1383
"book_reserved" if the there are holds aganst the item, or
1384
1385
"linked_analytics" if the item has linked analytic records.
1386
1387
=cut
1388
1389
sub ItemSafeToDelete {
1390
    my ( $biblionumber, $itemnumber ) = @_;
1391
    my $status;
1392
    my $dbh = C4::Context->dbh;
1393
1394
    my $error;
1395
1396
    my $countanalytics = GetAnalyticsCount($itemnumber);
1397
1398
    my $item = Koha::Items->find($itemnumber) or return;
1399
1400
    if ($item->checkout) {
1401
        $status = "book_on_loan";
1402
    }
1403
    elsif ( defined C4::Context->userenv
1404
        and !C4::Context->IsSuperLibrarian()
1405
        and C4::Context->preference("IndependentBranches")
1406
        and ( C4::Context->userenv->{branch} ne $item->homebranch ) )
1407
    {
1408
        $status = "not_same_branch";
1409
    }
1410
    else {
1411
        # check it doesn't have a waiting reserve
1412
        my $sth = $dbh->prepare(
1413
            q{
1414
            SELECT COUNT(*) FROM reserves
1415
            WHERE (found = 'W' OR found = 'T')
1416
            AND itemnumber = ?
1417
        }
1418
        );
1419
        $sth->execute($itemnumber);
1420
        my ($reserve) = $sth->fetchrow;
1421
        if ($reserve) {
1422
            $status = "book_reserved";
1423
        }
1424
        elsif ( $countanalytics > 0 ) {
1425
            $status = "linked_analytics";
1426
        }
1427
        else {
1428
            $status = 1;
1429
        }
1430
    }
1431
    return $status;
1432
}
1433
1434
=head2 DelItemCheck
1435
1436
   DelItemCheck( $biblionumber, $itemnumber);
1437
1438
Exported function (core API) for deleting an item record in Koha if there no current issue.
1439
1440
DelItemCheck wraps ItemSafeToDelete around DelItem.
1441
1442
=cut
1443
1444
sub DelItemCheck {
1445
    my ( $biblionumber, $itemnumber ) = @_;
1446
    my $status = ItemSafeToDelete( $biblionumber, $itemnumber );
1447
1448
    if ( $status == 1 ) {
1449
        my $item = Koha::Items->find($itemnumber);
1450
        $item->move_to_deleted;
1451
        $item->delete;
1452
    }
1453
    return $status;
1454
}
1455
1456
sub _mod_item_dates { # date formatting for date fields in item hash
1369
sub _mod_item_dates { # date formatting for date fields in item hash
1457
    my ( $item ) = @_;
1370
    my ( $item ) = @_;
1458
    return if !$item || ref($item) ne 'HASH';
1371
    return if !$item || ref($item) ne 'HASH';
(-)a/Koha/Item.pm (+60 lines)
Lines 174-179 sub delete { Link Here
174
    return $self->SUPER::delete;
174
    return $self->SUPER::delete;
175
}
175
}
176
176
177
=head3 safe_delete
178
179
=cut
180
181
sub safe_delete {
182
    my ($self) = @_;
183
184
    my $safe_to_delete = $self->safe_to_delete;
185
    return $safe_to_delete unless $safe_to_delete eq '1';
186
187
    $self->move_to_deleted;
188
189
    return $self->delete;
190
}
191
192
=head3 safe_to_delete
193
194
returns 1 if the item is safe to delete,
195
196
"book_on_loan" if the item is checked out,
197
198
"not_same_branch" if the item is blocked by independent branches,
199
200
"book_reserved" if the there are holds aganst the item, or
201
202
"linked_analytics" if the item has linked analytic records.
203
204
=cut
205
206
sub safe_to_delete {
207
    my ($self) = @_;
208
209
    return "book_on_loan" if $self->checkout;
210
211
    return "not_same_branch"
212
      if defined C4::Context->userenv
213
      and !C4::Context->IsSuperLibrarian()
214
      and C4::Context->preference("IndependentBranches")
215
      and ( C4::Context->userenv->{branch} ne $self->homebranch );
216
217
    # check it doesn't have a waiting reserve
218
    return "book_reserved"
219
      if $self->holds->search( { found => [ 'W', 'T' ] } )->count;
220
221
    return "linked_analytics"
222
      if C4::Items::GetAnalyticsCount( $self->itemnumber ) > 0;
223
224
    return 1;
225
}
226
177
=head3 move_to_deleted
227
=head3 move_to_deleted
178
228
179
my $is_moved = $item->move_to_deleted;
229
my $is_moved = $item->move_to_deleted;
Lines 483-488 sub current_holds { Link Here
483
    return Koha::Holds->_new_from_dbic($hold_rs);
533
    return Koha::Holds->_new_from_dbic($hold_rs);
484
}
534
}
485
535
536
=head3 holds
537
538
=cut
539
540
sub holds {
541
    my ( $self ) = @_;
542
    my $hold_rs = $self->_result->reserves->search;
543
    return Koha::Holds->_new_from_dbic($hold_rs);
544
}
545
486
=head3 stockrotationitem
546
=head3 stockrotationitem
487
547
488
  my $sritem = Koha::Item->stockrotationitem;
548
  my $sritem = Koha::Item->stockrotationitem;
(-)a/cataloguing/additem.pl (-6 / +7 lines)
Lines 668-675 if ($op eq "additem") { Link Here
668
} elsif ($op eq "delitem") {
668
} elsif ($op eq "delitem") {
669
#-------------------------------------------------------------------------------
669
#-------------------------------------------------------------------------------
670
    # check that there is no issue on this item before deletion.
670
    # check that there is no issue on this item before deletion.
671
    $error = &DelItemCheck( $biblionumber,$itemnumber);
671
    my $item = Koha::Items->find($itemnumber);
672
    if($error == 1){
672
    $error = $item->safe_to_delete;
673
    if($error ne '1'){
673
        print $input->redirect("additem.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode&searchid=$searchid");
674
        print $input->redirect("additem.pl?biblionumber=$biblionumber&frameworkcode=$frameworkcode&searchid=$searchid");
674
    }else{
675
    }else{
675
        push @errors,$error;
676
        push @errors,$error;
Lines 678-687 if ($op eq "additem") { Link Here
678
#-------------------------------------------------------------------------------
679
#-------------------------------------------------------------------------------
679
} elsif ($op eq "delallitems") {
680
} elsif ($op eq "delallitems") {
680
#-------------------------------------------------------------------------------
681
#-------------------------------------------------------------------------------
681
    my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber })->get_column('itemnumber');
682
    my $items = Koha::Items->search({ biblionumber => $biblionumber });
682
    foreach my $itemnumber ( @itemnumbers ) {
683
    while ( my $item = $items->next ) {
683
        $error = C4::Items::DelItemCheck( $biblionumber, $itemnumber );
684
        $error = $item->safe_delete;
684
        next if $error == 1; # Means ok
685
        next if $error eq '1'; # Means ok
685
        push @errors,$error;
686
        push @errors,$error;
686
    }
687
    }
687
    if ( @errors ) {
688
    if ( @errors ) {
(-)a/misc/cronjobs/delete_items.pl (-4 / +6 lines)
Lines 54-71 my $where_clause = ' where ' . join ( " and ", @where ); Link Here
54
54
55
verbose "Where statement: $where_clause";
55
verbose "Where statement: $where_clause";
56
56
57
# FIXME Use Koha::Items instead
57
$GLOBAL->{sth}->{target_items} = $dbh->prepare( $query->{target_items} . $where_clause  );
58
$GLOBAL->{sth}->{target_items} = $dbh->prepare( $query->{target_items} . $where_clause  );
58
$GLOBAL->{sth}->{target_items}->execute();
59
$GLOBAL->{sth}->{target_items}->execute();
59
60
60
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() ) {
61
DELITEM: while ( my $item = $GLOBAL->{sth}->{target_items}->fetchrow_hashref() ) {
61
62
62
    my $status = C4::Items::ItemSafeToDelete( $item->{biblionumber}, $item->{itemnumber} );
63
    my $item_object = Koha::Items->find($item->{itemnumber});
63
    if( $status eq '1' )  {
64
    my $safe_to_delete = $item_object->safe_to_delete;
64
        C4::Items::DelItemCheck( $item->{biblionumber}, $item->{itemnumber} )
65
    if( $safe_to_delete eq '1' )  {
66
        $item->safe_delete
65
            if $OPTIONS->{flags}->{commit};
67
            if $OPTIONS->{flags}->{commit};
66
        verbose "Deleting '$item->{itemnumber}'";
68
        verbose "Deleting '$item->{itemnumber}'";
67
    } else {
69
    } else {
68
        verbose "Item '$item->{itemnumber}' not deletd: $status";
70
        verbose "Item '$item->{itemnumber}' not deleted: $safe_to_delete";
69
    }
71
    }
70
}
72
}
71
73
(-)a/misc/cronjobs/delete_records_via_leader.pl (-1 / +1 lines)
Lines 99-105 foreach my $m (@metadatas) { Link Here
99
        foreach my $item ( @items ) {
99
        foreach my $item ( @items ) {
100
            my $itemnumber = $item->itemnumber();
100
            my $itemnumber = $item->itemnumber();
101
101
102
            my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
102
            my $error = $test ? "Test mode enabled" : $item->safe_delete;
103
            $error = undef if $error eq '1';
103
            $error = undef if $error eq '1';
104
104
105
            if ($error) {
105
            if ($error) {
(-)a/t/db_dependent/Circulation/IsItemIssued.t (-2 / +2 lines)
Lines 68-74 AddIssue($borrower, $item->barcode); Link Here
68
is ( IsItemIssued( $item->itemnumber ), 1, "item is now on loan" );
68
is ( IsItemIssued( $item->itemnumber ), 1, "item is now on loan" );
69
69
70
is(
70
is(
71
    DelItemCheck( $biblionumber, $item->itemnumber),
71
    $item->safe_delete,
72
    'book_on_loan',
72
    'book_on_loan',
73
    'item that is on loan cannot be deleted',
73
    'item that is on loan cannot be deleted',
74
);
74
);
Lines 77-83 AddReturn($item->barcode, $library->{branchcode}); Link Here
77
is ( IsItemIssued( $item->itemnumber ), 0, "item has been returned" );
77
is ( IsItemIssued( $item->itemnumber ), 0, "item has been returned" );
78
78
79
is(
79
is(
80
    DelItemCheck( $biblionumber, $item->itemnumber),
80
    $item->safe_delete,
81
    1,
81
    1,
82
    'item that is not on loan can be deleted',
82
    'item that is not on loan can be deleted',
83
);
83
);
(-)a/t/db_dependent/Items_DelItemCheck.t (-13 / +13 lines)
Lines 98-110 my $item = $builder->build_object( Link Here
98
AddIssue( $patron, $item->barcode );
98
AddIssue( $patron, $item->barcode );
99
99
100
is(
100
is(
101
    ItemSafeToDelete( $biblio->{biblionumber}, $item->itemnumber ),
101
    $item->safe_to_delete,
102
    'book_on_loan',
102
    'book_on_loan',
103
    'ItemSafeToDelete reports item on loan',
103
    'Koha::Item->safe_to_delete reports item on loan',
104
);
104
);
105
105
106
is(
106
is(
107
    DelItemCheck( $biblio->{biblionumber}, $item->itemnumber ),
107
    $item->safe_delete,
108
    'book_on_loan',
108
    'book_on_loan',
109
    'item that is on loan cannot be deleted',
109
    'item that is on loan cannot be deleted',
110
);
110
);
Lines 118-130 t::lib::Mocks::mock_preference('IndependentBranches', 1); Link Here
118
$item->set( { homebranch => $branch2->{branchcode}, holdingbranch => $branch2->{branchcode} })->store;
118
$item->set( { homebranch => $branch2->{branchcode}, holdingbranch => $branch2->{branchcode} })->store;
119
119
120
is(
120
is(
121
    ItemSafeToDelete( $biblio->{biblionumber}, $item->itemnumber ),
121
    $item->safe_to_delete,
122
    'not_same_branch',
122
    'not_same_branch',
123
    'ItemSafeToDelete reports IndependentBranches restriction',
123
    'Koha::Item->safe_to_delete reports IndependentBranches restriction',
124
);
124
);
125
125
126
is(
126
is(
127
    DelItemCheck( $biblio->{biblionumber}, $item->itemnumber ),
127
    $item->safe_delete,
128
    'not_same_branch',
128
    'not_same_branch',
129
    'IndependentBranches prevents deletion at another branch',
129
    'IndependentBranches prevents deletion at another branch',
130
);
130
);
Lines 139-151 $item->set( { homebranch => $branch->{branchcode}, holdingbranch => $branch->{br Link Here
139
    $module->mock( GetAnalyticsCount => sub { return 1 } );
139
    $module->mock( GetAnalyticsCount => sub { return 1 } );
140
140
141
    is(
141
    is(
142
        ItemSafeToDelete( $biblio->{biblionumber}, $item->itemnumber ),
142
        $item->safe_to_delete,
143
        'linked_analytics',
143
        'linked_analytics',
144
        'ItemSafeToDelete reports linked analytics',
144
        'Koha::Item->safe_to_delete reports linked analytics',
145
    );
145
    );
146
146
147
    is(
147
    is(
148
        DelItemCheck( $biblio->{biblionumber}, $item->itemnumber ),
148
        $item->safe_delete,
149
        'linked_analytics',
149
        'linked_analytics',
150
        'Linked analytics prevents deletion of item',
150
        'Linked analytics prevents deletion of item',
151
    );
151
    );
Lines 153-169 $item->set( { homebranch => $branch->{branchcode}, holdingbranch => $branch->{br Link Here
153
}
153
}
154
154
155
is(
155
is(
156
    ItemSafeToDelete( $biblio->{biblionumber}, $item->itemnumber ),
156
    $item->safe_to_delete,
157
    1,
157
    1,
158
    'ItemSafeToDelete shows item safe to delete'
158
    'Koha::Item->safe_to_delete shows item safe to delete'
159
);
159
);
160
160
161
DelItemCheck( $biblio->{biblionumber}, $item->itemnumber );
161
$item->safe_delete,
162
162
163
my $test_item = Koha::Items->find( $item->itemnumber );
163
my $test_item = Koha::Items->find( $item->itemnumber );
164
164
165
is( $test_item, undef,
165
is( $test_item, undef,
166
    "DelItemCheck should delete item if ItemSafeToDelete returns true"
166
    "Koha::Item->safe_delete should delete item if safe_to_delete returns true"
167
);
167
);
168
168
169
$schema->storage->txn_rollback;
169
$schema->storage->txn_rollback;
(-)a/t/db_dependent/Reserves.t (-1 / +2 lines)
Lines 365-372 is($new_count, $hold_notice_count + 1, 'patron not notified a second time (bug 1 Link Here
365
365
366
# avoiding the not_same_branch error
366
# avoiding the not_same_branch error
367
t::lib::Mocks::mock_preference('IndependentBranches', 0);
367
t::lib::Mocks::mock_preference('IndependentBranches', 0);
368
my $item = Koha::Items->find($itemnumber);
368
is(
369
is(
369
    DelItemCheck( $bibnum, $itemnumber),
370
    $item->safe_delete,
370
    'book_reserved',
371
    'book_reserved',
371
    'item that is captured to fill a hold cannot be deleted',
372
    'item that is captured to fill a hold cannot be deleted',
372
);
373
);
(-)a/tools/batchMod.pl (-4 / +4 lines)
Lines 182-192 if ($op eq "action") { Link Here
182
	foreach my $itemnumber(@itemnumbers){
182
	foreach my $itemnumber(@itemnumbers){
183
183
184
		$job->progress($i) if $runinbackground;
184
		$job->progress($i) if $runinbackground;
185
        my $itemdata = Koha::Items->find($itemnumber);
185
        my $item = Koha::Items->find($itemnumber);
186
        next unless $itemdata; # Should have been tested earlier, but just in case...
186
        next unless $item; # Should have been tested earlier, but just in case...
187
        $itemdata = $itemdata->unblessed;
187
        my $itemdata = $item->unblessed;
188
        if ( $del ){
188
        if ( $del ){
189
            my $return = DelItemCheck( $itemdata->{'biblionumber'}, $itemdata->{'itemnumber'});
189
            my $return = $item->safe_delete;
190
			if ($return == 1) {
190
			if ($return == 1) {
191
			    $deleted_items++;
191
			    $deleted_items++;
192
			} else {
192
			} else {
(-)a/tools/batch_delete_records.pl (-5 / +4 lines)
Lines 175-184 if ( $op eq 'form' ) { Link Here
175
            }
175
            }
176
176
177
            # Delete items
177
            # Delete items
178
            my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber })->get_column('itemnumber');
178
            my $items = Koha::Items->search({ biblionumber => $biblionumber });
179
            ITEMNUMBER: for my $itemnumber ( @itemnumbers ) {
179
            while ( my $item = $items->next ) {
180
                my $error = eval { C4::Items::DelItemCheck( $biblionumber, $itemnumber ) };
180
                my $error = eval { $item->safe_delete };
181
                if ( $error != 1 or $@ ) {
181
                if ( $error ne '1' or $@ ) {
182
                    push @messages, {
182
                    push @messages, {
183
                        type => 'error',
183
                        type => 'error',
184
                        code => 'item_not_deleted',
184
                        code => 'item_not_deleted',
185
- 

Return to bug 23463