oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix - Storage::Image copy does not create thumbnails

Browse source
This commit is contained in:
Roy Johnson 2006-11-18 18:06:54 +00:00
parent 5dddf92543
commit f749d2d260
3 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI/Storage/Image.pm
View file

@ -74,6 +74,26 @@ sub addFileFromCaptcha {
return ($filename, $challenge);
}
#-------------------------------------------------------------------
=head2 copy ( [ storage ] )
Overriding the copy method so that thumbnail files are copied along with other image files
=head3 storage
Optionally pass a storage object to copy the files to.
=cut
sub copy {
my $self = shift;
my $newStorage = shift;
# Storage::Image->getFiles excludes thumbnails from the filelist and we want to copy the thumbnails
my $filelist = $self->SUPER::getFiles(1);
return $self->SUPER::copy($newStorage, $filelist);
}
#-------------------------------------------------------------------