Lines 170-176
sub generate_subfield_form {
Link Here
|
170 |
my @authorised_values; |
170 |
my @authorised_values; |
171 |
my %authorised_lib; |
171 |
my %authorised_lib; |
172 |
# builds list, depending on authorised value... |
172 |
# builds list, depending on authorised value... |
173 |
if ( $subfieldlib->{authorised_value} eq "branches" ) { |
173 |
if ( $subfieldlib->{authorised_value} eq "LOST" ) { |
|
|
174 |
my $ClaimReturnedLostValue = C4::Context->preference('ClaimReturnedLostValue'); |
175 |
push @authorised_values, qq{}; |
176 |
my $av = GetAuthorisedValues( $subfieldlib->{authorised_value} ); |
177 |
for my $r ( @$av ) { |
178 |
next if $ClaimReturnedLostValue && $r->{authorised_value} eq $ClaimReturnedLostValue; |
179 |
push @authorised_values, $r->{authorised_value}; |
180 |
$authorised_lib{$r->{authorised_value}} = $r->{lib}; |
181 |
} |
182 |
} |
183 |
elsif ( $subfieldlib->{authorised_value} eq "branches" ) { |
174 |
foreach my $thisbranch (@$branches) { |
184 |
foreach my $thisbranch (@$branches) { |
175 |
push @authorised_values, $thisbranch->{branchcode}; |
185 |
push @authorised_values, $thisbranch->{branchcode}; |
176 |
$authorised_lib{$thisbranch->{branchcode}} = $thisbranch->{branchname}; |
186 |
$authorised_lib{$thisbranch->{branchcode}} = $thisbranch->{branchname}; |
177 |
- |
|
|