# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Digest::MD5 qw(md5_base64);
use CGI::Session;
use File::Spec;
require Exporter;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
-use C4::Koha;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
-@ISA = qw(Exporter);
-@EXPORT = qw(
- &checkauth
- &get_template_and_user
-);
+our (@ISA, @EXPORT_OK);
+BEGIN {
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ checkauth
+ get_template_and_user
+ );
+}
=head1 NAME
$template->param( CAN_user_serials => 1 );
$template->param( CAN_user_reports => 1 );
$template->param( CAN_user_problem_reports => 1 );
+ $template->param( CAN_user_recalls => 1 );
}
my $minPasswordLength = C4::Context->preference('minPasswordLength');
-value => $session->id,
-HttpOnly => 1,
-secure => ( C4::Context->https_enabled() ? 1 : 0 ),
+ -sameSite => 'Lax'
);
$loggedin = 1;
$userid = $session->param('cardnumber');
-value => $sessionID,
-HttpOnly => 1,
-secure => ( C4::Context->https_enabled() ? 1 : 0 ),
+ -sameSite => 'Lax'
);
if ( $return == 2 ) {
-HttpOnly => 1,
-expires => '',
-secure => ( C4::Context->https_enabled() ? 1 : 0 ),
+ -sameSite => 'Lax'
);
}
if ($envcookie) {
-HttpOnly => 1,
-expires => '',
-secure => ( C4::Context->https_enabled() ? 1 : 0 ),
+ -sameSite => 'Lax'
);
print $query->header(
-type => 'text/html; charset=utf-8',