# Script for testing progressbar, part 2 - json submit handler
# and Z39.50 lookups
-# Koha library project www.koha.org
+# Koha library project www.koha-community.org
# Licensed under the GPL
-# Copyright 2000-2002 Katipo Communications
+# Copyright 2010 Catalyst IT, Ltd
#
# This file is part of Koha.
#
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
-#use warnings; FIXME - Bug 2505
+use warnings;
# standard or CPAN modules used
use CGI;
my $reply = CGI->new("");
print $reply->header(-type => 'text/html');
- print "{ jobID: '$jobID' }";
+ print '{"jobID":"' . $jobID . '"}';
exit 0;
} elsif (defined $pid) {
# if we get here, we're a child that has detached
close STDERR;
foreach (1..100) {
- sleep 1;
$job->progress( $_ );
+ sleep 1;
}
$job->finish();
} else {