projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 8220 - Allow koc uploads to go to process queue instead of being applied directly.
[koha_fer]
/
tools
/
background-job-progress.pl
diff --git
a/tools/background-job-progress.pl
b/tools/background-job-progress.pl
index
cd8a065
..
380ad15
100755
(executable)
--- a/
tools/background-job-progress.pl
+++ b/
tools/background-job-progress.pl
@@
-18,6
+18,7
@@
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
+#use warnings; FIXME - Bug 2505
# standard or CPAN modules used
use IO::File;
# standard or CPAN modules used
use IO::File;
@@
-35,7
+36,7
@@
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value,
if ($auth_status ne "ok") {
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
if ($auth_status ne "ok") {
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
- print
"{ progress: 0 }"
;
+ print
'{"progress":"0"}'
;
exit 0;
}
exit 0;
}
@@
-53,4
+54,4
@@
if (defined $job) {
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
# response will be sent back as JSON
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
# response will be sent back as JSON
-print
"{ progress: $reported_progress, job_size: $job_size, job_status: '$job_status' }"
;
+print
'{"progress":"' . $reported_progress . '","job_size":"' . $job_size . '","job_status":"' . $job_status . '"}'
;