|
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 |
- |
|
|