|
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 |
- |
|
|