View | Details | Raw Unified | Return to bug 13304
Collapse All | Expand All

(-)a/cataloguing/addbiblio.pl (-3 / +3 lines)
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
- 

Return to bug 13304