Bug 16259: Replace CGI->param with CGI->multi_param in list context - part 2

[koha.git] / svc / new_bib

diff --git a/svc/new_bib b/svc/new_bib
index e1b6933..ba6742a 100755 (executable)
--- a/svc/new_bib
+++ b/svc/new_bib
@@ -51,7 +51,7 @@ sub add_bib {
 
     my $result = {};
     my $inxml = $query->param('POSTDATA');
-    print $query->header(-type => 'text/xml');
+    print $query->header(-type => 'text/xml', -charset => 'utf-8');
 
     my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21';
     my $record = eval {MARC::Record::new_from_xml( $inxml, "utf8", $marcflavour)};