Lines 115-121
if ( ( $op eq 'Upload' ) && $uploadfile ) {
Link Here
|
115 |
} |
115 |
} |
116 |
close $tfh; |
116 |
close $tfh; |
117 |
if ( $filetype eq 'zip' ) { |
117 |
if ( $filetype eq 'zip' ) { |
118 |
unless ( system( "unzip", $tempfile, '-d', $dirname ) == 0 ) { |
118 |
qx/unzip $tempfile -d $dirname/; |
|
|
119 |
my $exit_code = $?; |
120 |
unless ( $exit_code == 0 ) { |
119 |
$errors{'UZIPFAIL'} = $uploadfilename; |
121 |
$errors{'UZIPFAIL'} = $uploadfilename; |
120 |
$template->param( ERRORS => [ \%errors ] ); |
122 |
$template->param( ERRORS => [ \%errors ] ); |
121 |
# This error is fatal to the import, so bail out here |
123 |
# This error is fatal to the import, so bail out here |