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