|
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 |
- |
|
|