Changeset 4504 for extensions/pLoader/trunk/src/Uploader/ImageList.pm
- Timestamp:
- Dec 16, 2009, 9:20:29 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/ImageList.pm
r4478 r4504 126 126 reupload_action_properties_m 127 127 reupload_not_ask 128 display_mode 128 129 / 129 130 ); … … 156 157 157 158 } 158 159 160 161 # save exif preview image if available162 # otherwise create a preview image163 sub _write_preview_image {164 my ( $self, $imagedata ) = @_;165 166 167 # If PreviewImage is available, we use it168 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 181 159 182 160 sub _set_exif_tag { … … 492 470 ); 493 471 494 printf("%sx%s%s\n", $size, $size, '^');495 472 496 473 # maximize size and keep aspect ratio … … 516 493 gravity=>'center', 517 494 ); 518 495 519 496 $image->Set( 520 497 quality=>$self->wx_quality||90 … … 774 751 reupload_action_properties 775 752 reupload_action_properties_m 753 display_mode 776 754 / 777 755 ]
Note: See TracChangeset
for help on using the changeset viewer.