Bug 24279: Claims Returned does not work when set from additem.pl
Test Plan: 1) Configure Claimes Returned 2) Apply this patch 3) Go to additem.pl for that item 4) Note the claims returned lost status does not show in the lost status pulldown Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
parent
757510c84c
commit
b38546f1d1
|
|
@ -170,7 +170,17 @@ sub generate_subfield_form {
|
|||
my @authorised_values;
|
||||
my %authorised_lib;
|
||||
# builds list, depending on authorised value...
|
||||
if ( $subfieldlib->{authorised_value} eq "branches" ) {
|
||||
if ( $subfieldlib->{authorised_value} eq "LOST" ) {
|
||||
my $ClaimReturnedLostValue = C4::Context->preference('ClaimReturnedLostValue');
|
||||
push @authorised_values, qq{};
|
||||
my $av = GetAuthorisedValues( $subfieldlib->{authorised_value} );
|
||||
for my $r ( @$av ) {
|
||||
next if $ClaimReturnedLostValue && $r->{authorised_value} eq $ClaimReturnedLostValue;
|
||||
push @authorised_values, $r->{authorised_value};
|
||||
$authorised_lib{$r->{authorised_value}} = $r->{lib};
|
||||
}
|
||||
}
|
||||
elsif ( $subfieldlib->{authorised_value} eq "branches" ) {
|
||||
foreach my $thisbranch (@$branches) {
|
||||
push @authorised_values, $thisbranch->{branchcode};
|
||||
$authorised_lib{$thisbranch->{branchcode}} = $thisbranch->{branchname};
|
||||
|
|
|
|||
Loading…
Reference in New Issue