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

plukliste: ignore items in transfers

parent 818e8c9f
......@@ -157,7 +157,10 @@ sub _compute {
};
for my $item (sort { $a->{itemnumber} <=> $b->{itemnumber} } @$items) {
my $lastseen = eval { str2time($item->{datelastseen}); };
next if $item->{notforloan} or $item->{damaged} or $item->{itemlost};
next if $item->{itype} and $item->{itype} =~ m{^(DAGSLAAN|UKESLAAN|10DLAAN|TOUKESLAAN|SETT)$};
next if $item->{transfer_to};
my $branch = $item->{homebranch} // 'unknown';
if ($item->{location} and $item->{location} =~ m{^([a-z]{4})(\.[a-z\d]+)+$}) {
......@@ -169,9 +172,6 @@ sub _compute {
$item->{shelf} = $branch;
}
next if $item->{notforloan} or $item->{damaged} or $item->{itemlost};
next if $item->{itype} and $item->{itype} =~ m{^(DAGSLAAN|UKESLAAN|10DLAAN|TOUKESLAAN|SETT)$};
my $b = $bybranch->($branch);
$b->{items}++;
......
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