Lines 57-62
use Date::Calc qw( Date_to_Days Today );
Link Here
|
57 |
|
57 |
|
58 |
my $query = CGI->new; |
58 |
my $query = CGI->new; |
59 |
|
59 |
|
|
|
60 |
my $op = $query->param('op') || q{}; |
61 |
|
60 |
# CAS single logout handling |
62 |
# CAS single logout handling |
61 |
# Will print header and exit |
63 |
# Will print header and exit |
62 |
if ( C4::Context->preference('casAuthentication') ) { |
64 |
if ( C4::Context->preference('casAuthentication') ) { |
Lines 87-93
$template->param( shibbolethAuthentication => C4::Context->config('useshibboleth
Link Here
|
87 |
# get borrower information .... |
89 |
# get borrower information .... |
88 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
90 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
89 |
|
91 |
|
90 |
if( $query->param('update_arc') && C4::Context->preference("AllowPatronToControlAutorenewal") ){ |
92 |
if( $op eq 'update_arc' && C4::Context->preference("AllowPatronToControlAutorenewal") ){ |
91 |
die "Wrong CSRF token" |
93 |
die "Wrong CSRF token" |
92 |
unless Koha::Token->new->check_csrf({ |
94 |
unless Koha::Token->new->check_csrf({ |
93 |
session_id => scalar $query->cookie('CGISESSID'), |
95 |
session_id => scalar $query->cookie('CGISESSID'), |
94 |
- |
|
|