|
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 |
- |
|
|