|
Lines 136-164
sub safe_exit {
Link Here
|
| 136 |
exit; |
136 |
exit; |
| 137 |
} |
137 |
} |
| 138 |
|
138 |
|
| 139 |
BEGIN { |
|
|
| 140 |
C4::Context->set_remote_address; |
| 141 |
|
| 142 |
require Exporter; |
| 143 |
@ISA = qw(Exporter); |
| 144 |
|
| 145 |
@EXPORT_OK = qw( |
| 146 |
checkauth check_api_auth get_session check_cookie_auth checkpw checkpw_internal checkpw_hash |
| 147 |
get_all_subpermissions get_cataloguing_page_permissions get_user_subpermissions in_iprange |
| 148 |
get_template_and_user haspermission create_basic_session |
| 149 |
); |
| 150 |
|
| 151 |
$cas = C4::Context->preference('casAuthentication'); |
| 152 |
$caslogout = C4::Context->preference('casLogout'); |
| 153 |
|
| 154 |
if ($cas) { |
| 155 |
require C4::Auth_with_cas; # no import |
| 156 |
import C4::Auth_with_cas |
| 157 |
qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required multipleAuth getMultipleAuth); |
| 158 |
} |
| 159 |
|
| 160 |
} |
| 161 |
|
| 162 |
=head2 get_template_and_user |
139 |
=head2 get_template_and_user |
| 163 |
|
140 |
|
| 164 |
my ($template, $borrowernumber, $cookie) |
141 |
my ($template, $borrowernumber, $cookie) |
| 165 |
- |
|
|