Lines 74-81
$debug and warn "Operation requested: $op";
Link Here
|
74 |
|
74 |
|
75 |
my ( $total, $handled, @counts, $tempfile, $tfh, %errors ); |
75 |
my ( $total, $handled, @counts, $tempfile, $tfh, %errors ); |
76 |
|
76 |
|
|
|
77 |
# Case is important in these operational values as the template must use case to be visually pleasing! |
77 |
if ( ( $op eq 'Upload' ) && $uploadfile ) { |
78 |
if ( ( $op eq 'Upload' ) && $uploadfile ) { |
78 |
# Case is important in these operational values as the template must use case to be visually pleasing! |
|
|
79 |
my $dirname = File::Temp::tempdir( CLEANUP => 1 ); |
79 |
my $dirname = File::Temp::tempdir( CLEANUP => 1 ); |
80 |
$debug and warn "dirname = $dirname"; |
80 |
$debug and warn "dirname = $dirname"; |
81 |
my $filesuffix; |
81 |
my $filesuffix; |
Lines 129-139
if ( ( $op eq 'Upload' ) && $uploadfile ) {
Link Here
|
129 |
#if ($filetype eq 'zip' ) |
129 |
#if ($filetype eq 'zip' ) |
130 |
$results = handle_dir( $dirname, $filesuffix, $template, $cardnumber, |
130 |
$results = handle_dir( $dirname, $filesuffix, $template, $cardnumber, |
131 |
$tempfile ); |
131 |
$tempfile ); |
132 |
$handled = 1; |
132 |
$handled++ if $results == 1; |
133 |
$total = 1; |
133 |
$total = 1; |
134 |
} |
134 |
} |
135 |
|
135 |
|
136 |
if ( %$results || %errors ) { |
136 |
if ( $results!=1 || %errors ) { |
137 |
$template->param( ERRORS => [$results] ); |
137 |
$template->param( ERRORS => [$results] ); |
138 |
} |
138 |
} |
139 |
else { |
139 |
else { |
140 |
- |
|
|