Revision 49

Date:
2010/08/25 12:47:03
Author:
ahitrov@rambler.ru
Revision Log:
Удалена отладка
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/contenido/components/set_image.msn

     
    24 24 my @preview = exists $prop->{'preview'} && ref $prop->{'preview'} eq 'ARRAY' ? @{$prop->{'preview'}} : exists $prop->{'preview'} && $prop->{'preview'} ? ($prop->{'preview'}) : ();
    25 25 my @crops = exists $prop->{'crop'} && ref $prop->{'crop'} eq 'ARRAY' ? @{$prop->{'crop'}} : exists $prop->{'crop'} && $prop->{'crop'} ? ($prop->{'crop'}) : ();
    26 26 my @shrinks = exists $prop->{'shrink'} && ref $prop->{'shrink'} eq 'ARRAY' ? @{$prop->{'shrink'}} : exists $prop->{'shrink'} && $prop->{'shrink'} ? ($prop->{'shrink'}) : ();
    27 warn Dumper(\@crops);
    28 27
    29 28 if (ref $IMAGE eq 'HASH' && exists $IMAGE->{mini} && ref $IMAGE->{mini} eq 'HASH') {
    30 29 foreach my $val ( values %{$IMAGE->{mini}} ) {
    … …  
    98 97 }
    99 98 if ( $shave_string ) {
    100 99 my $c_line = $state->{"convert_binary"}." $shave_string $filename_tmp.$extension $filename_tmp.shaved.$extension";
    101 warn "CROP!!! [$c_line]\n\n";
    102 100 my $result = `$c_line`;
    103 101 if (length $result > 0) {
    104 102 print "Contenido Error: При вызове '$c_line' произошла ошибка '$result' ($@)\n";