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

(-)a/C4/AuthoritiesMarc.pm (+2 lines)
Lines 277-282 sub SearchAuthorities { Link Here
277
            next;
277
            next;
278
        }
278
        }
279
279
280
        SetUTF8Flag( $authrecord );
281
280
        my $authid=$authrecord->field('001')->data();
282
        my $authid=$authrecord->field('001')->data();
281
        my %newline;
283
        my %newline;
282
        $newline{authid} = $authid;
284
        $newline{authid} = $authid;
(-)a/C4/Biblio.pm (-6 / +3 lines)
Lines 23-29 use strict; Link Here
23
use warnings;
23
use warnings;
24
use Carp;
24
use Carp;
25
25
26
use Encode qw( decode );
26
use Encode qw( decode is_utf8 );
27
use MARC::Record;
27
use MARC::Record;
28
use MARC::File::USMARC;
28
use MARC::File::USMARC;
29
use MARC::File::XML;
29
use MARC::File::XML;
Lines 2471-2481 sub TransformHtmlToMarc { Link Here
2471
    foreach my $param_name ( keys %$cgi_params ) {
2471
    foreach my $param_name ( keys %$cgi_params ) {
2472
        if ( $param_name =~ /^tag_/ ) {
2472
        if ( $param_name =~ /^tag_/ ) {
2473
            my $param_value = $cgi_params->{$param_name};
2473
            my $param_value = $cgi_params->{$param_name};
2474
            if ( $param_value = Encode::decode('UTF-8', $param_value) ) {
2474
            unless ( Encode::is_utf8( $param_value ) ) {
2475
                $cgi_params->{$param_name} = $param_value;
2475
                $cgi_params->{$param_name} = Encode::decode('UTF-8', $param_value );
2476
            }
2476
            }
2477
2478
            # FIXME - need to do something if string is not valid UTF-8
2479
        }
2477
        }
2480
    }
2478
    }
2481
2479
2482
- 

Return to bug 11944