Ignore:
Timestamp:
Dec 16, 2009, 9:20:29 PM (14 years ago)
Author:
ronosman
Message:

Feature 1332 added : new list and thumbnail display mode for photo selection.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • extensions/pLoader/trunk/src/Uploader/ImageList.pm

    r4478 r4504  
    126126                                reupload_action_properties_m
    127127                                reupload_not_ask
     128                                display_mode
    128129     /
    129130);
     
    156157   
    157158}
    158 
    159 
    160 
    161 # save exif preview image if available
    162 # otherwise create a preview image
    163 sub _write_preview_image {
    164     my ( $self, $imagedata ) = @_;
    165 
    166 
    167     # If PreviewImage is available, we use it
    168     if(defined $imagedata ) {
    169         print "_write_preview_image, use exif PreviewImage\n";
    170         eval {
    171             open PREVIEW_FILE, ">", $self->current_image->preview_file ;
    172             binmode PREVIEW_FILE;
    173             print PREVIEW_FILE $$imagedata;
    174             close PREVIEW_FILE;
    175         };
    176         $self->last_error_msg($@) if $@;
    177     }
    178    
    179 }
    180 
    181159
    182160sub _set_exif_tag {
     
    492470    );
    493471
    494     printf("%sx%s%s\n", $size, $size, '^');
    495472
    496473        # maximize size and keep aspect ratio
     
    516493        gravity=>'center',
    517494    );
    518 
     495       
    519496    $image->Set(
    520497        quality=>$self->wx_quality||90
     
    774751                                reupload_action_properties
    775752                                reupload_action_properties_m
     753                                display_mode
    776754            /
    777755        ]
Note: See TracChangeset for help on using the changeset viewer.