@@ -, +, @@ not used - Check you have in default framework an item subfield mapped with items.notforloan and with an authorized value catergory, for example 'NOTFORLOAN' - Check the authorized value category has at least value '0' - Create a new value in this category, for example '9' - Create a biblio with default framework - Create an item with barcode='000AAA1', callnumber='ZZZAAA1' and notforloan=0 - Create an item with barcode='000AAA2', callnumber='ZZZAAA2' and notforloan=9 - Delete new value created above, for example '9' - Create a file 'barecodes.txt' containing 2 lines '000AAA1' and '000AAA2' - Go to inventory tool : /cgi-bin/koha/tools/inventory.pl - Choose file in 'Barcode file' - Enter item callnumber between 'ZZZ' and 'ZZZZ' - Check 'Compare barcodes list to results' - Submit --- tools/inventory.pl | 20 ++++---------------- 1 file changed, 4 insertions(+), 16 deletions(-) --- a/tools/inventory.pl +++ a/tools/inventory.pl @@ -86,6 +86,7 @@ for my $fwk ( @$frameworks ){ } my $statuses = []; +my @notforloans; for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ my $hash = {}; $hash->{fieldname} = $statfield; @@ -95,6 +96,9 @@ for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.dama my $arr = GetAuthorisedValues($hash->{authcode}); $hash->{values} = $arr; push @$statuses, $hash; + if ( $statfield eq 'items.notforloan') { + @notforloans = map { $_->{'authorised_value'} } @$arr; + } } } @@ -110,16 +114,6 @@ for my $authvfield (@$statuses) { } } -my $notforloanlist; -my $statussth = ''; -for my $authvfield (@$statuses) { - if ( scalar @{$staton->{$authvfield->{fieldname}}} > 0 ){ - my $joinedvals = join ',', @{$staton->{$authvfield->{fieldname}}}; - $statussth .= "$authvfield->{fieldname} in ($joinedvals) and "; - $notforloanlist = $joinedvals if ($authvfield->{fieldname} eq "items.notforloan"); - } -} -$statussth =~ s, and $,,g; $template->param( authorised_values => \@authorised_value_list, today => dt_from_string, @@ -131,14 +125,8 @@ $template->param( branch => $branch, datelastseen => $datelastseen, compareinv2barcd => $compareinv2barcd, - notforloanlist => $notforloanlist ); -my @notforloans; -if (defined $notforloanlist) { - @notforloans = split(/,/, $notforloanlist); -} - my @scanned_items; my @errorloop; if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) { --