Attachment #6041 for bug #6554

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

Lines 78-84 sub all { Link Here

(-)a/C4/ItemType.pm (-1 / +1 lines)
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;

Lines 301-306 sub output_with_http_headers($$$$;$) { Link Here

(-)a/C4/Output.pm (+1 lines)
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

Lines 476-481 sub getRecords { Link Here

(-)a/C4/Search.pm (+1 lines)
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) {




            utf8_hashref($vars->{$k});
        }
        else {
#            utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k});
        }
    }
    my $data;

            utf8_hashref($element);
            next;
        }
#        utf8::encode($element) if utf8::is_utf8($element);
    }        
}         


            utf8_hashref($hashref->{$key});
            next;
        }
#        utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
    }
}
        

Lines 176-181 sub XSLTParse4Display { Link Here

(-)a/C4/XSLT.pm (+1 lines)
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

Lines 117-123 sub output { Link Here

(-)a/C4/Templates.pm (-3 / +3 lines)
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