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

(-)a/C4/Auth.pm (-2 / +7 lines)
Lines 19-28 package C4::Auth; Link Here
19
19
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
22
use Digest::MD5 qw(md5_base64);
23
use Digest::MD5 qw(md5_base64);
23
use Storable qw(thaw freeze);
24
use Storable qw(thaw freeze);
24
use URI::Escape;
25
use URI::Escape;
25
use CGI::Session;
26
use CGI::Session;
27
use Encode;
28
use Carp;
26
29
27
require Exporter;
30
require Exporter;
28
use C4::Context;
31
use C4::Context;
Lines 1067-1078 sub checkauth { Link Here
1067
    $template->param( %info );
1070
    $template->param( %info );
1068
#    $cookie = $query->cookie(CGISESSID => $session->id
1071
#    $cookie = $query->cookie(CGISESSID => $session->id
1069
#   );
1072
#   );
1073
    my $data = $template->output;
1074
    eval { $data = encode('UTF-8',$data,Encode::FB_CROAK); };
1075
    if ($@) { carp "UTF8 encoding error: $@" };
1070
    print $query->header(
1076
    print $query->header(
1071
        -type   => 'text/html',
1077
        -type   => 'text/html',
1072
        -charset => 'utf-8',
1078
        -charset => 'utf-8',
1073
        -cookie => $cookie
1079
        -cookie => $cookie
1074
      ),
1080
      ),
1075
      $template->output;
1081
      $data;
1076
    safe_exit;
1082
    safe_exit;
1077
}
1083
}
1078
1084
1079
- 

Return to bug 10074