use Modern::Perl;
# standard or CPAN modules used
-use IO::File;
use CGI qw ( -utf8 );
use CGI::Session;
use C4::Context;
-use C4::Auth qw/check_cookie_auth/;
+use C4::Auth qw( check_cookie_auth );
use C4::BackgroundJob;
use CGI::Cookie; # need to check cookies before
# having CGI parse the POST request
my $input = CGI->new;
my %cookies = CGI::Cookie->fetch;
-my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { tools => '*' });
+my ($auth_status, $session) = check_cookie_auth($cookies{'CGISESSID'}->value, { tools => '*' });
if ($auth_status ne "ok") {
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
exit 0;
}
+my $sessionID = $session->id;
my $jobID = $input->param('jobID');
my $job = C4::BackgroundJob->fetch($sessionID, $jobID);
my $reported_progress = 0;