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

(-)a/C4/Output.pm (+2 lines)
Lines 28-33 package C4::Output; Link Here
28
use strict;
28
use strict;
29
#use warnings; FIXME - Bug 2505
29
#use warnings; FIXME - Bug 2505
30
30
31
use Encode qw( encode );
31
use URI::Escape;
32
use URI::Escape;
32
33
33
use C4::Context;
34
use C4::Context;
Lines 312-317 sub output_with_http_headers { Link Here
312
# We need to fix the encoding as it comes out of the database, or when we pass the variables to templates
313
# We need to fix the encoding as it comes out of the database, or when we pass the variables to templates
313
314
314
    $data =~ s/\&amp\;amp\; /\&amp\; /g;
315
    $data =~ s/\&amp\;amp\; /\&amp\; /g;
316
    Encode::encode('UTF-8', $data);
315
    print $query->header($options), $data;
317
    print $query->header($options), $data;
316
}
318
}
317
319
(-)a/C4/Search.pm (-1 / +4 lines)
Lines 493-498 sub getRecords { Link Here
493
                    # not an index scan
493
                    # not an index scan
494
                    else {
494
                    else {
495
                        $record = $results[ $i - 1 ]->record($j)->raw();
495
                        $record = $results[ $i - 1 ]->record($j)->raw();
496
                        Encode::decode('UTF-8', $record );
496
                        # warn "RECORD $j:".$record;
497
                        # warn "RECORD $j:".$record;
497
                        $results_hash->{'RECORDS'}[$j] = $record;
498
                        $results_hash->{'RECORDS'}[$j] = $record;
498
                    }
499
                    }
Lines 519-524 sub getRecords { Link Here
519
                                next;
520
                                next;
520
                            }
521
                            }
521
522
523
                            Encode::decode('UTF-8', $marc_record);
524
522
                            my @used_datas = ();
525
                            my @used_datas = ();
523
526
524
                            foreach my $tag ( @{ $facet->{tags} } ) {
527
                            foreach my $tag ( @{ $facet->{tags} } ) {
Lines 720-725 sub pazGetRecords { Link Here
720
        for (my $i = 0; $i < $count; $i++) {
723
        for (my $i = 0; $i < $count; $i++) {
721
            # FIXME -- may need to worry about diacritics here
724
            # FIXME -- may need to worry about diacritics here
722
            my $rec = $paz->record($recid, $i);
725
            my $rec = $paz->record($recid, $i);
726
            Encode::decode('UTF-8', $rec );
723
            push @{ $result_group->{'RECORDS'} }, $rec;
727
            push @{ $result_group->{'RECORDS'} }, $rec;
724
        }
728
        }
725
729
726
- 

Return to bug 11944