Lines 11-17
use C4::Auth qw( check_cookie_auth );
Link Here
|
11 |
use C4::AuthoritiesMarc qw( GetTagsLabels ); |
11 |
use C4::AuthoritiesMarc qw( GetTagsLabels ); |
12 |
|
12 |
|
13 |
my %cookies = CGI::Cookie->fetch; |
13 |
my %cookies = CGI::Cookie->fetch; |
14 |
my ($auth_status) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' }); |
14 |
my $session_cookie = $cookies{'CGISESSID'}->value; |
|
|
15 |
my ($auth_status) = check_cookie_auth( $session_cookie, { editcatalogue => 'edit_catalogue' } ); |
15 |
my $reply = CGI->new; |
16 |
my $reply = CGI->new; |
16 |
if ($auth_status ne "ok") { |
17 |
if ($auth_status ne "ok") { |
17 |
print $reply->header(-type => 'text/html'); |
18 |
print $reply->header(-type => 'text/html'); |
18 |
- |
|
|