Changeset 3231
- Timestamp:
- Mar 29, 2009, 4:55:27 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extras/pLoader/trunk/src/Uploader/ImageList.pm
r3226 r3231 841 841 ); 842 842 843 #eval {843 eval { 844 844 # set current image thumbnail 845 845 $self->progress_thumbnail_refresh->(); … … 849 849 # update upload progress dialog 850 850 $self->progressbar_refresh->(0.25); 851 #};851 }; 852 852 # user cancelled : dialog box is destroyed 853 853 croak "Upload cancelled. ", $@ if $@ ; 854 print "1\n"; 854 855 855 if( $self->create_resized ){ 856 #eval {856 eval { 857 857 if(!$self->CreateResized()){ 858 858 printf("CreateResized failed %s. Use ResizeCallback\n", $@); … … 873 873 ) if $self->auto_rotate; 874 874 } 875 #};875 }; 876 876 $self->_set_exif_tag( 877 877 $self->current_image->site_resized_file, … … 886 886 ); 887 887 } 888 print "2\n";889 888 890 889 … … 901 900 ); 902 901 903 #eval {902 eval { 904 903 $self->progress_msg_refresh->($msg); 905 #};904 }; 906 905 croak "Upload cancelled. ", $@ if $@ ; 907 print "3\n"; 908 909 # eval { 906 907 eval { 910 908 $self->CreateThumbnail(); 911 #};909 }; 912 910 913 911 if($@){ … … 925 923 ); 926 924 } 927 #eval {925 eval { 928 926 $self->progress_msg_refresh->($msg); 929 927 $self->progressbar_refresh->(0.50); 930 #};928 }; 931 929 croak "Upload cancelled. ", $@ if $@ ; 932 print "4\n";933 930 934 931 # photo metadata 935 932 $self->_prepare_upload_properties(); 936 print "5\n";937 933 my ( $status, $status_msg ) = $self->pwg->UploadImage(); 938 print "6\n";939 934 940 935 if ( $status ){ … … 960 955 ); 961 956 # update upload progress dialog 962 #eval {957 eval { 963 958 $self->progress_msg_refresh->($msg); 964 959 $self->progressbar_refresh->(1); 965 #};960 }; 966 961 croak "Upload cancelled. ", $@ if $@ ; 967 print "7\n";968 962 969 963 } … … 1021 1015 1022 1016 $image->Write( 1023 encode('iso-8859-1', filename=>$self->current_image->site_high_file)1017 filename=>encode('iso-8859-1', $self->current_image->site_high_file) 1024 1018 ); 1025 1019 warn "$status ", $self->current_image->site_high_file, "\n" if $status ; … … 1127 1121 # write resizd file 1128 1122 $image->Write( 1129 encode('iso-8859-1', filename=>$file)1123 filename=>encode('iso-8859-1', $file) 1130 1124 ); 1131 1125 warn "$status ", $file, "\n" if $status ;
Note: See TracChangeset
for help on using the changeset viewer.