Lines 40-45
use Date::Calc qw(Today);
Link Here
|
40 |
use MARC::File::USMARC; |
40 |
use MARC::File::USMARC; |
41 |
use MARC::File::XML; |
41 |
use MARC::File::XML; |
42 |
use URI::Escape; |
42 |
use URI::Escape; |
|
|
43 |
use Encode; |
43 |
|
44 |
|
44 |
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
45 |
if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { |
45 |
MARC::File::XML->default_record_format('UNIMARC'); |
46 |
MARC::File::XML->default_record_format('UNIMARC'); |
Lines 234-241
sub build_authorized_values_list {
Link Here
|
234 |
&& ( $value || $tagslib->{$tag}->{$subfield}->{defaultvalue} ) ); |
235 |
&& ( $value || $tagslib->{$tag}->{$subfield}->{defaultvalue} ) ); |
235 |
|
236 |
|
236 |
while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) { |
237 |
while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) { |
237 |
push @authorised_values, $value; |
238 |
push @authorised_values, Encode::encode_utf8($value); |
238 |
$authorised_lib{$value} = $lib; |
239 |
$authorised_lib{Encode::encode_utf8($value)} = $lib; |
239 |
} |
240 |
} |
240 |
} |
241 |
} |
241 |
$authorised_values_sth->finish; |
242 |
$authorised_values_sth->finish; |
242 |
- |
|
|