|
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 |
- |
|
|