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