Lines 49-55
my $cardnumber = $input->param('cardnumber');
Link Here
|
49 |
my $uploadfilename = $input->param('uploadfile'); |
49 |
my $uploadfilename = $input->param('uploadfile'); |
50 |
my $uploadfile = $input->upload('uploadfile'); |
50 |
my $uploadfile = $input->upload('uploadfile'); |
51 |
my $borrowernumber = $input->param('borrowernumber'); |
51 |
my $borrowernumber = $input->param('borrowernumber'); |
52 |
my $op = $input->param('op'); |
52 |
my $op = $input->param('op') || ''; |
53 |
|
53 |
|
54 |
#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. |
54 |
#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 |
# Other parts of this code could be optimized as well, I think. Perhaps the file upload could be done with YUI's upload |
55 |
# Other parts of this code could be optimized as well, I think. Perhaps the file upload could be done with YUI's upload |
Lines 229-234
sub handle_file {
Link Here
|
229 |
$debug and warn "Entering sub handle_file; passed \$cardnumber=$cardnumber, \$source=$source"; |
229 |
$debug and warn "Entering sub handle_file; passed \$cardnumber=$cardnumber, \$source=$source"; |
230 |
$count{filenames} = () if !$count{filenames}; |
230 |
$count{filenames} = () if !$count{filenames}; |
231 |
$count{source} = $source if !$count{source}; |
231 |
$count{source} = $source if !$count{source}; |
|
|
232 |
$count{count} = 0 unless exists $count{count}; |
232 |
my %filerrors; |
233 |
my %filerrors; |
233 |
my $filename; |
234 |
my $filename; |
234 |
if ( $filetype eq 'image' ) { |
235 |
if ( $filetype eq 'image' ) { |
235 |
- |
|
|