Revision 160

Date:
2011/11/01 13:41:13
Author:
ahitrov
Revision Log:
Some bugs in image transform
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/File.pm

     
    263 263 $IMAGE = {};
    264 264 # hashref slice assigning - жжесть
    265 265 if ( $transformed && -e $filename_tmp.'.transformed.'.$ext ) {
    266 @{$IMAGE}{'filename', 'width', 'height'} = (
    267 $filename.'.'.$ext,
    268 Image::Size::imgsize($filename_tmp.'.transformed.'.$ext),
    266 my ($tw, $th) = Image::Size::imgsize($filename_tmp.'.transformed.'.$ext);
    267 my ($w, $h) = Image::Size::imgsize($filename_tmp.'.'.$ext);
    268 @{$IMAGE}{'filename', 't_width', 't_height', 'width', 'height'} = (
    269 $filename.'.'.$ext, $tw, $th, $w, $h
    269 270 );
    270 271 unlink $filename_tmp.'.transformed.'.$ext;
    271 272 } else {
    … …  
    372 373 }
    373 374
    374 375 unlink $filename_tmp.'.'.$ext if -e $filename_tmp.'.'.$ext;
    376 $IMAGE->{width} = delete $IMAGE->{t_width} if exists $IMAGE->{t_width};
    377 $IMAGE->{height} = delete $IMAGE->{t_height} if exists $IMAGE->{t_height};
    375 378 }
    376 379
    377 380 return $IMAGE;