Changeset 3472 for extensions/pLoader/trunk/src/Uploader/ImageList.pm
- Timestamp:
- Jun 28, 2009, 7:58:18 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/ImageList.pm
r3451 r3472 143 143 } 144 144 145 sub _set_current_image_filepaths__ {146 my ( $self ) = @_;147 148 my ( $vol, $dir, $file ) = File::Spec->splitpath(149 $self->current_image->file150 );151 152 my ( $filename, $ext ) = split /\./, $file ;153 154 155 $self->current_image->wx_thumb_file(156 File::Spec->catfile(157 $self->wx_thumb_dir,158 sprintf(159 "%s.%s",160 $filename,161 $self->type,162 )163 )164 );165 166 $self->current_image->preview_file(167 File::Spec->catfile(168 $self->preview_dir,169 sprintf(170 "%s.%s",171 $filename,172 $self->type,173 )174 )175 );176 $self->current_image->preview_file(177 encode('iso-8859-1', $self->current_image->preview_file)178 );179 180 $self->current_image->site_thumb_file(181 File::Spec->catfile(182 $self->site_thumb_dir,183 sprintf(184 "%s.%s",185 $filename,186 $self->type,187 )188 )189 );190 191 }192 145 193 146 sub _set_current_image_filepaths { … … 901 854 my $site_name = $self->current_image->site_name; 902 855 903 # my ( $filename, $ext ) = split /\./, $file ;904 856 my $filename = $self->current_image->file_sum ; 905 857 … … 1176 1128 ); 1177 1129 1178 $self->pwg-> tags(1179 #join(',', @{$self->current_image->site_tags})1130 $self->pwg->site_tags( 1131 join(',', @{$self->current_image->site_tags}) 1180 1132 ); 1181 1133
Note: See TracChangeset
for help on using the changeset viewer.