X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=tools%2Fupload-file.pl;h=b705f5c8fc223673bcf5a1b014f5f69fa0ceed8a;hb=367c4fb8815bfe4a01869a25bcd8222989c15dcd;hp=1f38d076eb9c2629aa39bdb4248560dac06a35e0;hpb=c9ba8c899d854d4190df783f3f1aec2989d2cb10;p=koha_fer

diff --git a/tools/upload-file.pl b/tools/upload-file.pl
index 1f38d076eb..b705f5c8fc 100755
--- a/tools/upload-file.pl
+++ b/tools/upload-file.pl
@@ -46,7 +46,7 @@ if ($auth_status ne "ok") {
     exit 0;
 }
 
-my $uploaded_file = C4::UploadedFile->new($sessionID);
+our $uploaded_file = C4::UploadedFile->new($sessionID);
 unless (defined $uploaded_file) {
     # FIXME - failed to create file for some reason
     send_reply('failed', '');
@@ -54,8 +54,6 @@ unless (defined $uploaded_file) {
 }
 $uploaded_file->max_size($ENV{'CONTENT_LENGTH'}); # may not be the file size, exactly
 
-my $first_chunk = 1;
-
 my $query;
 $query = new CGI \&upload_hook;
 $uploaded_file->done();
@@ -68,9 +66,8 @@ exit 0;
 sub upload_hook {
     my ($file_name, $buffer, $bytes_read, $session) = @_;
     $uploaded_file->stash(\$buffer, $bytes_read);
-    if ($first_chunk) {
+    if ( ! $uploaded_file->name && $file_name ) { # save name on first chunk
         $uploaded_file->name($file_name);
-        $first_chunk = 0;
     }
 }
 
@@ -80,5 +77,5 @@ sub send_reply {
     my $reply = CGI->new("");
     print $reply->header(-type => 'text/html');
     # response will be sent back as JSON
-    print "{ status: '$upload_status', fileid: '$fileid' }";
+    print '{"status":"' . $upload_status . '","fileid":"' . $fileid . '"}';
 }