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 2476-2486 sub TransformHtmlToMarc { Link Here
2476
    foreach my $param_name ( keys %$cgi_params ) {
2476
    foreach my $param_name ( keys %$cgi_params ) {
2477
        if ( $param_name =~ /^tag_/ ) {
2477
        if ( $param_name =~ /^tag_/ ) {
2478
            my $param_value = $cgi_params->{$param_name};
2478
            my $param_value = $cgi_params->{$param_name};
2479
            if ( $param_value = Encode::decode('UTF-8', $param_value) ) {
2479
            unless ( Encode::is_utf8( $param_value ) ) {
2480
                $cgi_params->{$param_name} = $param_value;
2480
                $cgi_params->{$param_name} = Encode::decode('UTF-8', $param_value );
2481
            }
2481
            }
2482
2483
            # FIXME - need to do something if string is not valid UTF-8
2484
        }
2482
        }
2485
    }
2483
    }
2486
2484
2487
- 

Return to bug 11944