Handle non-latin1 charsets
This commit is contained in:
parent
281343486f
commit
4f3f0faadc
|
|
@ -26,6 +26,7 @@ use CGI;
|
|||
use C4::Auth;
|
||||
use C4::Context;
|
||||
use C4::Output;
|
||||
use C4::Charset;
|
||||
use HTML::Template;
|
||||
|
||||
# Fixed variables
|
||||
|
|
@ -376,4 +377,7 @@ sub checkdatabasefor {
|
|||
return $message;
|
||||
}
|
||||
|
||||
print $input->header(-cookie => $cookie), $template->output;
|
||||
print $input->header(
|
||||
-type => guesstype($template->output),
|
||||
-cookie => $cookie
|
||||
), $template->output;
|
||||
|
|
|
|||
|
|
@ -4,6 +4,7 @@ use strict;
|
|||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Charset;
|
||||
use C4::Context;
|
||||
use HTML::Template;
|
||||
|
||||
|
|
@ -16,4 +17,7 @@ my ($template, $loggedinuser, $cookie)
|
|||
flagsrequired => {permissions => 1},
|
||||
debug => 1,
|
||||
});
|
||||
print $query->header(-cookie => $cookie),$template->output;
|
||||
print $query->header(
|
||||
-type => guesstype($template->output),
|
||||
-cookie => $cookie
|
||||
),$template->output;
|
||||
|
|
|
|||
Loading…
Reference in New Issue