For catalyst/template_test branch. There are still issues with displaying biblios.

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Frédéric Demians 2011-01-31 21:12:32 +01:00 committed by Chris Cormack
parent 160bb77967
commit 51f067fcb2
2 changed files with 2 additions and 1 deletions

View file

@ -472,6 +472,8 @@ sub output_with_http_headers($$$$;$) {
# remove SUDOC specific NSB NSE
$data =~ s/\x{C2}\x{98}|\x{C2}\x{9C}/ /g;
$data =~ s/\x{C2}\x{88}|\x{C2}\x{89}/ /g;
utf8::encode($data) if utf8::is_utf8($data);
print $query->header($options), $data;
}

View file

@ -108,7 +108,6 @@ sub param{
while(@_){
my $key = shift;
my $val = shift;
utf8::encode($val) if utf8::is_utf8($val);
$self->{VARS}->{$key} = $val;
}
}