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

(-)a/tools/export.pl (-2 / +1 lines)
Lines 74-80 if ( $op eq 'export' ) { Link Here
74
    my $filename = $query->param('id_list_file');
74
    my $filename = $query->param('id_list_file');
75
    if ( $filename ) {
75
    if ( $filename ) {
76
        my $mimetype = $query->uploadInfo($filename)->{'Content-Type'};
76
        my $mimetype = $query->uploadInfo($filename)->{'Content-Type'};
77
        my @valid_mimetypes = qw( application/octet-stream text/csv text/plain );
77
        my @valid_mimetypes = qw( application/octet-stream text/csv text/plain application/vnd.ms-excel );
78
        unless ( grep { /^$mimetype$/ } @valid_mimetypes ) {
78
        unless ( grep { /^$mimetype$/ } @valid_mimetypes ) {
79
            push @messages, { type => 'alert', code => 'invalid_mimetype' };
79
            push @messages, { type => 'alert', code => 'invalid_mimetype' };
80
            $op = '';
80
            $op = '';
81
- 

Return to bug 18704