| Lines 46-52
          if ($auth_status ne "ok") {
      
      
        Link Here | 
        
          | 46 |     exit 0; | 46 |     exit 0; | 
        
          | 47 | } | 47 | } | 
        
          | 48 |  | 48 |  | 
          
            
              | 49 | my $uploaded_file = C4::UploadedFile->new($sessionID); | 49 | our $uploaded_file = C4::UploadedFile->new($sessionID); | 
        
          | 50 | unless (defined $uploaded_file) { | 50 | unless (defined $uploaded_file) { | 
        
          | 51 |     # FIXME - failed to create file for some reason | 51 |     # FIXME - failed to create file for some reason | 
        
          | 52 |     send_reply('failed', ''); | 52 |     send_reply('failed', ''); | 
  
    | Lines 54-61
          unless (defined $uploaded_file) {
      
      
        Link Here | 
        
          | 54 | } | 54 | } | 
        
          | 55 | $uploaded_file->max_size($ENV{'CONTENT_LENGTH'}); # may not be the file size, exactly | 55 | $uploaded_file->max_size($ENV{'CONTENT_LENGTH'}); # may not be the file size, exactly | 
        
          | 56 |  | 56 |  | 
            
              | 57 | my $first_chunk = 1; |  |  | 
            
              | 58 |  | 
        
          | 59 | my $query; | 57 | my $query; | 
        
          | 60 | $query = new CGI \&upload_hook; | 58 | $query = new CGI \&upload_hook; | 
        
          | 61 | $uploaded_file->done(); | 59 | $uploaded_file->done(); | 
  
    | Lines 68-76
          exit 0;
      
      
        Link Here | 
        
          | 68 | sub upload_hook { | 66 | sub upload_hook { | 
        
          | 69 |     my ($file_name, $buffer, $bytes_read, $session) = @_; | 67 |     my ($file_name, $buffer, $bytes_read, $session) = @_; | 
        
          | 70 |     $uploaded_file->stash(\$buffer, $bytes_read); | 68 |     $uploaded_file->stash(\$buffer, $bytes_read); | 
          
            
              | 71 |     if ($first_chunk) { | 69 |     if ( ! $uploaded_file->name && $file_name ) { # save name on first chunk | 
        
          | 72 |         $uploaded_file->name($file_name); | 70 |         $uploaded_file->name($file_name); | 
            
              | 73 |         $first_chunk = 0; |  |  | 
        
          | 74 |     } | 71 |     } | 
        
          | 75 | } | 72 | } | 
        
          | 76 |  | 73 |  | 
            
              | 77 | -  |  |  |