Lines 46-54
my ($template, $loggedinuser, $cookie)
Link Here
|
46 |
debug => 0, |
46 |
debug => 0, |
47 |
}); |
47 |
}); |
48 |
|
48 |
|
49 |
my $filetype = $input->param('filetype'); |
49 |
our $filetype = $input->param('filetype') || ''; |
50 |
my $cardnumber = $input->param('cardnumber'); |
50 |
my $cardnumber = $input->param('cardnumber'); |
51 |
my $uploadfilename = $input->param('uploadfile'); |
51 |
our $uploadfilename = $input->param('uploadfile') || ''; |
52 |
my $uploadfile = $input->upload('uploadfile'); |
52 |
my $uploadfile = $input->upload('uploadfile'); |
53 |
my $borrowernumber = $input->param('borrowernumber'); |
53 |
my $borrowernumber = $input->param('borrowernumber'); |
54 |
my $op = $input->param('op') || ''; |
54 |
my $op = $input->param('op') || ''; |
Lines 76-82
Files greater than 100K will be refused. Images should be 140x200 pixels. If the
Link Here
|
76 |
|
76 |
|
77 |
$debug and warn "Operation requested: $op"; |
77 |
$debug and warn "Operation requested: $op"; |
78 |
|
78 |
|
79 |
my ( $total, $handled, @counts, $tempfile, $tfh, %errors ); |
79 |
my ( $total, $handled, $tempfile, $tfh ); |
|
|
80 |
our @counts = (); |
81 |
our %errors = (); |
80 |
|
82 |
|
81 |
# Case is important in these operational values as the template must use case to be visually pleasing! |
83 |
# Case is important in these operational values as the template must use case to be visually pleasing! |
82 |
if ( ( $op eq 'Upload' ) && $uploadfile ) { |
84 |
if ( ( $op eq 'Upload' ) && $uploadfile ) { |
83 |
- |
|
|