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

More image uploading fixes. Copying/pasted code. Should probably be refactored a bit.

Browse source
This commit is contained in:
Graham Knop 2007-04-27 17:12:50 +00:00
parent 885a369c67
commit 58018d5d69
4 changed files with 24 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Asset/File/Image.pm
View file

@ -208,9 +208,17 @@ sub processPropertiesFromFormPost {
$self->update({parameters=>$parameters.' alt="'.$self->get("title").'"'});
}
my $storage = $self->getStorageLocation;
$self->generateThumbnail($self->session->setting->get("maxImageSize"));
$storage->deleteFile($self->get("filename"));
$storage->renameFile('thumb-'.$self->get("filename"),$self->get("filename"));
my $max_size = $self->session->setting->get("maxImageSize");
my $file = $self->get("filename");
my ($w, $h) = $storage->getSizeInPixels($file);
if($w > $max_size || $h > $max_size) {
if($w > $h) {
$storage->resize($file, $max_size);
}
else {
$storage->resize($file, 0, $max_size);
}
}
$self->generateThumbnail($self->session->form->process("thumbnailSize"));
}