View | Details | Raw Unified | Return to bug 9312
Collapse All | Expand All

(-)a/tools/picture-upload.pl (-2 / +2 lines)
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
- 

Return to bug 9312