Lines 50-56
my $cardnumber = $input->param('cardnumber');
Link Here
|
50 |
my $uploadfilename = $input->param('uploadfile'); |
50 |
my $uploadfilename = $input->param('uploadfile'); |
51 |
my $uploadfile = $input->upload('uploadfile'); |
51 |
my $uploadfile = $input->upload('uploadfile'); |
52 |
my $borrowernumber = $input->param('borrowernumber'); |
52 |
my $borrowernumber = $input->param('borrowernumber'); |
53 |
my $op = $input->param('op'); |
53 |
my $op = $input->param('op') || ''; |
54 |
|
54 |
|
55 |
#FIXME: This code is really in the rough. The variables need to be re-scoped as the two subs depend on global vars to operate. |
55 |
#FIXME: This code is really in the rough. The variables need to be re-scoped as the two subs depend on global vars to operate. |
56 |
# Other parts of this code could be optimized as well, I think. Perhaps the file upload could be done with YUI's upload |
56 |
# Other parts of this code could be optimized as well, I think. Perhaps the file upload could be done with YUI's upload |
Lines 233-238
sub handle_file {
Link Here
|
233 |
$debug and warn "Entering sub handle_file; passed \$cardnumber=$cardnumber, \$source=$source"; |
233 |
$debug and warn "Entering sub handle_file; passed \$cardnumber=$cardnumber, \$source=$source"; |
234 |
$count{filenames} = () if !$count{filenames}; |
234 |
$count{filenames} = () if !$count{filenames}; |
235 |
$count{source} = $source if !$count{source}; |
235 |
$count{source} = $source if !$count{source}; |
|
|
236 |
$count{count} = 0 unless exists $count{count}; |
236 |
my %filerrors; |
237 |
my %filerrors; |
237 |
my $filename; |
238 |
my $filename; |
238 |
if ( $filetype eq 'image' ) { |
239 |
if ( $filetype eq 'image' ) { |
239 |
- |
|
|