Lines 19-24
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; |
Lines 1065-1078
sub checkauth {
Link Here
|
1065 |
LibraryName => C4::Context->preference("LibraryName"), |
1066 |
LibraryName => C4::Context->preference("LibraryName"), |
1066 |
); |
1067 |
); |
1067 |
$template->param( %info ); |
1068 |
$template->param( %info ); |
1068 |
# $cookie = $query->cookie(CGISESSID => $session->id |
1069 |
|
1069 |
# ); |
1070 |
require C4::Output; |
1070 |
print $query->header( |
1071 |
C4::Output::output_html_with_http_headers( $query, $cookie, |
1071 |
-type => 'text/html', |
1072 |
$template->output); |
1072 |
-charset => 'utf-8', |
|
|
1073 |
-cookie => $cookie |
1074 |
), |
1075 |
$template->output; |
1076 |
safe_exit; |
1073 |
safe_exit; |
1077 |
} |
1074 |
} |
1078 |
|
1075 |
|
1079 |
- |
|
|