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:
parent
160bb77967
commit
51f067fcb2
2 changed files with 2 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue