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