Lines 39-47
use C4::UploadedFile;
Link Here
|
39 |
# have been created. |
39 |
# have been created. |
40 |
|
40 |
|
41 |
my $flags_required = [ |
41 |
my $flags_required = [ |
42 |
{circulate => 'circulate_remaining_permissions'}, |
42 |
{circulate => 'circulate_remaining_permissions'}, |
43 |
{tools => 'stage_marc_import'}, |
43 |
{tools => 'stage_marc_import'}, |
44 |
{tools => 'upload_local_cover_images'} |
44 |
{tools => 'upload_local_cover_images'} |
45 |
]; |
45 |
]; |
46 |
|
46 |
|
47 |
my %cookies = fetch CGI::Cookie; |
47 |
my %cookies = fetch CGI::Cookie; |
Lines 49-57
my %cookies = fetch CGI::Cookie;
Link Here
|
49 |
my $auth_failure = 1; |
49 |
my $auth_failure = 1; |
50 |
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value); |
50 |
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value); |
51 |
foreach my $flag_required (@{ $flags_required}) { |
51 |
foreach my $flag_required (@{ $flags_required}) { |
52 |
if (my $flags = haspermission(C4::Context->config('user'), $flag_required)) { |
52 |
if (my $flags = haspermission(C4::Context->config('user'), $flag_required)) { |
53 |
$auth_failure = 0 if $auth_status eq 'ok'; |
53 |
$auth_failure = 0 if $auth_status eq 'ok'; |
54 |
} |
54 |
} |
55 |
} |
55 |
} |
56 |
|
56 |
|
57 |
if ($auth_failure) { |
57 |
if ($auth_failure) { |
58 |
- |
|
|