Changeset 17059
- Timestamp:
- 2008-08-28T13:51:09+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ImageConverter.pm
r16981 r17059 218 218 219 219 if ($image_type ne " ") { 220 $type = $ image_type;220 $type = $self->correct_mime_type($image_type); 221 221 } 222 222 … … 251 251 252 252 my $thumbnailsize = $self->{'thumbnailsize'}; 253 my $thumbnailtype = $self-> {'thumbnailtype'};253 my $thumbnailtype = $self->correct_mime_type($self->{'thumbnailtype'}); 254 254 255 255 # Generate the thumbnail with convert … … 289 289 290 290 my $screenviewsize = $self->{'screenviewsize'}; 291 my $screenviewtype = $self-> {'screenviewtype'};291 my $screenviewtype = $self->correct_mime_type($self->{'screenviewtype'}); 292 292 293 293 # make the screenview image … … 433 433 } 434 434 435 # image/jpg is not a valid mime-type, it ought to be image/jpeg. 436 # Sometimes JPEG is passed in also, want to keep things lowercase just in case. 437 sub correct_mime_type { 438 my $self = shift(@_); 439 my ($file_extension) = @_; 440 441 $file_extension = lc($file_extension); 442 $file_extension =~ s/jpg/jpeg/s; 443 444 return $file_extension; 445 } 446 435 447 1;
Note:
See TracChangeset
for help on using the changeset viewer.