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

(-)a/tools/picture-upload.pl (-4 / +3 lines)
Lines 74-81 $debug and warn "Operation requested: $op"; Link Here
74
74
75
my ( $total, $handled, @counts, $tempfile, $tfh, %errors );
75
my ( $total, $handled, @counts, $tempfile, $tfh, %errors );
76
76
77
# Case is important in these operational values as the template must use case to be visually pleasing!
77
if ( ( $op eq 'Upload' ) && $uploadfile ) {
78
if ( ( $op eq 'Upload' ) && $uploadfile ) {
78
    # Case is important in these operational values as the template must use case to be visually pleasing!
79
    my $dirname = File::Temp::tempdir( CLEANUP => 1 );
79
    my $dirname = File::Temp::tempdir( CLEANUP => 1 );
80
    $debug and warn "dirname = $dirname";
80
    $debug and warn "dirname = $dirname";
81
    my $filesuffix;
81
    my $filesuffix;
Lines 129-139 if ( ( $op eq 'Upload' ) && $uploadfile ) { Link Here
129
        #if ($filetype eq 'zip' )
129
        #if ($filetype eq 'zip' )
130
        $results = handle_dir( $dirname, $filesuffix, $template, $cardnumber,
130
        $results = handle_dir( $dirname, $filesuffix, $template, $cardnumber,
131
            $tempfile );
131
            $tempfile );
132
        $handled = 1;
132
        $handled++ if $results == 1;
133
        $total   = 1;
133
        $total   = 1;
134
    }
134
    }
135
135
136
    if ( %$results || %errors ) {
136
    if ( $results!=1 || %errors ) {
137
        $template->param( ERRORS => [$results] );
137
        $template->param( ERRORS => [$results] );
138
    }
138
    }
139
    else {
139
    else {
140
- 

Return to bug 9312