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

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

Return to bug 9312