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

(-)a/C4/ItemType.pm (-1 / +1 lines)
Lines 78-84 sub all { Link Here
78
    for ( @{$dbh->selectall_arrayref(
78
    for ( @{$dbh->selectall_arrayref(
79
        "SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} )
79
        "SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} )
80
    {
80
    {
81
        utf8::encode($_->{description});
81
#        utf8::encode($_->{description});
82
        push @itypes, $class->new($_);
82
        push @itypes, $class->new($_);
83
    }
83
    }
84
    return @itypes;
84
    return @itypes;
(-)a/C4/Output.pm (+1 lines)
Lines 301-306 sub output_with_http_headers($$$$;$) { Link Here
301
 
301
 
302
#    utf8::encode($data) if utf8::is_utf8($data);
302
#    utf8::encode($data) if utf8::is_utf8($data);
303
303
304
    binmode( STDOUT, ":utf8" );
304
    print $query->header($options), $data;
305
    print $query->header($options), $data;
305
}
306
}
306
307
(-)a/C4/Search.pm (+1 lines)
Lines 476-481 sub getRecords { Link Here
476
476
477
		                for ( my $j = 0 ; $j < $jmax ; $j++ ) {
477
		                for ( my $j = 0 ; $j < $jmax ; $j++ ) {
478
		                    my $render_record = $results[ $i - 1 ]->record($j)->render();
478
		                    my $render_record = $results[ $i - 1 ]->record($j)->render();
479
utf8::decode($render_record);
479
                            my @used_datas = ();
480
                            my @used_datas = ();
480
481
481
                            foreach my $fcode (@fcodes) {
482
                            foreach my $fcode (@fcodes) {
(-)a/C4/Templates.pm (-3 / +3 lines)
Lines 117-123 sub output { Link Here
117
            utf8_hashref($vars->{$k});
117
            utf8_hashref($vars->{$k});
118
        }
118
        }
119
        else {
119
        else {
120
            utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k});
120
#            utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k});
121
        }
121
        }
122
    }
122
    }
123
    my $data;
123
    my $data;
Lines 138-144 sub utf8_arrayref { Link Here
138
            utf8_hashref($element);
138
            utf8_hashref($element);
139
            next;
139
            next;
140
        }
140
        }
141
        utf8::encode($element) if utf8::is_utf8($element);
141
#        utf8::encode($element) if utf8::is_utf8($element);
142
    }        
142
    }        
143
}         
143
}         
144
144
Lines 153-159 sub utf8_hashref { Link Here
153
            utf8_hashref($hashref->{$key});
153
            utf8_hashref($hashref->{$key});
154
            next;
154
            next;
155
        }
155
        }
156
        utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
156
#        utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
157
    }
157
    }
158
}
158
}
159
        
159
        
(-)a/C4/XSLT.pm (+1 lines)
Lines 176-181 sub XSLTParse4Display { Link Here
176
    }
176
    }
177
    my $results = $stylesheet->transform($source);
177
    my $results = $stylesheet->transform($source);
178
    my $newxmlrecord = $stylesheet->output_string($results);
178
    my $newxmlrecord = $stylesheet->output_string($results);
179
utf8::decode( $newxmlrecord );
179
    return $newxmlrecord;
180
    return $newxmlrecord;
180
}
181
}
181
182

Return to bug 6554