Commit 2ebcc108 authored by Petter Goksøyr Åsen's avatar Petter Goksøyr Åsen
Browse files

holds.compute: collect maybe IPP items

parent 25e4ac8f
......@@ -124,6 +124,7 @@ sub compute {
location => $pick->{location},
itemcallnumber => $pick->{itemcallnumber},
ccode => $pick->{ccode},
itemlost => $pick->{itemlost},
category => category(%meta, location => $pick->{location}),
};
if (not $pick->{onloan}) {
......@@ -164,7 +165,7 @@ sub _compute {
for my $item (sort { $a->{itemnumber} <=> $b->{itemnumber} } @$items) {
next if $item->{notforloan} or $item->{damaged} or $item->{itemlost};
next if $item->{notforloan} or $item->{damaged} or ($item->{itemlost} and $item->{itemlost} != 5);
next if $item->{itype} and $item->{itype} =~ m{^(DAGSLAAN|UKESLAAN|10DLAAN|TOUKESLAAN|SETT)$};
next if $item->{transfer_to};
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment