Changeset 4422 for extensions/pLoader/trunk/src/Uploader/ImageList.pm

Timestamp:

Dec 4, 2009, 10:30:31 AM (14 years ago)

Author:

ronosman

Message:

Feature 1055 added : preparation of high definition images ( HD ).

File:

• extensions/pLoader/trunk/src/Uploader/ImageList.pm (modified) (10 diffs)

extensions/pLoader/trunk/src/Uploader/ImageList.pm

@@ -43 +43 @@
                 blur
                 quality
+                resize_w
+                resize_h
+                hd_filter
+                hd_blur
+                hd_quality
+                hd_w
+                hd_h
+                                hd_interlace
                 prefix
                 author
                 count
-                resize_w
-                resize_h
                 new_files
                 storable_file
@@ -80 +86 @@
                 pwg
                 upload_high
+                                upload_hd
                 remove_uploaded_from_selection
                 wx_quality
@@ -721 +728 @@
                 resize_w
                 resize_h
+                hd_filter
+                hd_blur
+                hd_quality
+                hd_w
+                hd_h
+                                hd_interlace
                 new_files
                 storable_file
@@ -734 +747 @@
                 default_name_prefix
                 upload_high
+                                upload_hd
                 remove_uploaded_from_selection
                 auto_rotate
@@ -829 +843 @@
     }
 
+        my $decode = {
+        'No' => 0,
+            'Yes, use HD resized of the original photo' => 'HD',
+            'Yes, use a copy of the original photo' => 'ORIGINAL',
+    };  
+
+        $self->upload_high(
+            $decode->{$self->upload_hd}
+        );
+        
     # if upload high, rotate a copy of original file
     if($self->upload_high){
@@ -1051 +1075 @@
     my ( $self ) = @_;
 
+printf("CreateHigh %s\n", $self->upload_high);
     my $bModifyOriginal;
     my $bRotate;
     my $bAddWatermark;
+        my $bResize;
     my $orientation = $self->current_image->exif_metadata->{Orientation};
+        my $degrees;
     
     # Valid for Rotate 180, Rotate 90 CW, Rotate 270 CW
@@ -1060 +1087 @@
         $bModifyOriginal = 1;
         $bRotate = 1;
+                $degrees = $1;
     }
 
@@ -1066 +1094 @@
         $bAddWatermark = 1;
     }
+        
+        # HD resize
+        if('HD' eq $self->upload_high){
+        $bModifyOriginal = 1;
+        $bResize = 1;
+        }
 
     if($bModifyOriginal){
@@ -1077 +1111 @@
         warn "$status ", $self->current_image->file, "\n" if $status ;
         return 0 if $status;
-
+        if($bResize){
+            $status = $image->Resize(
+                geometry => sprintf("%sx%s>", $self->hd_w, $self->hd_h), 
+                filter => sprintf("%s", $self->hd_filter), 
+                blur => $self->hd_blur
+            );
+            warn "$status" if $status ;
+            return 0 if $status;
+        }
+        
+        printf("resize with quality value %s\n", $self->quality);
+        $status = $image->Set(quality=>$self->quality);
+        warn "$status" if $status ;
+
+        $status = $image->Set(interlace=>$self->interlace);
+        warn "$status" if $status ;
+                
         if($bRotate){
-            $image->Rotate( degrees=>$1 );      
+            $image->Rotate( degrees=>$degrees );        
         }        
         $image->Write(
@@ -1134 +1184 @@
         my ( $filename, $ext ) = split /\./, $file ;
     
-        # high_file is a copy of original
+        # high_file is a resized of original
         $self->current_image->site_high_file( 
             File::Spec->catfile(