|
Lines 286-292
sub drop_hold {
Link Here
|
| 286 |
foreach (qw(hold_items unavail_holds)) { |
286 |
foreach (qw(hold_items unavail_holds)) { |
| 287 |
$self->{$_} or next; |
287 |
$self->{$_} or next; |
| 288 |
for (my $i = 0; $i < scalar @{$self->{$_}}; $i++) { |
288 |
for (my $i = 0; $i < scalar @{$self->{$_}}; $i++) { |
| 289 |
my $held_item = $self->{$_}[$i]->{item_id} or next; |
289 |
my $held_item = $self->{$_}[$i]->{barcode} or next; |
| 290 |
if ($held_item eq $item_id) { |
290 |
if ($held_item eq $item_id) { |
| 291 |
splice @{$self->{$_}}, $i, 1; |
291 |
splice @{$self->{$_}}, $i, 1; |
| 292 |
$result++; |
292 |
$result++; |
| 293 |
- |
|
|