From 7e9cd9b089b0e7ae5ac5d67cb625174add4cff62 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 13 Jun 2005 17:44:52 +0000
Subject: [PATCH]  - fix [ 1206045 ] Max Image Size don't work

---
 lib/WebGUI/Asset/File/Image.pm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/File/Image.pm b/lib/WebGUI/Asset/File/Image.pm
index 55195fbb7..4b3bf65a6 100644
--- a/lib/WebGUI/Asset/File/Image.pm
+++ b/lib/WebGUI/Asset/File/Image.pm
@@ -204,7 +204,20 @@ sub processPropertiesFromFormPost {
 	unless ($parameters =~ /alt\=/) {
 		$self->update({parameters=>$parameters.' alt="'.$self->get("title").'"'});
 	}
-	$self->generateThumbnail;
+	my $storage = $self->getStorageLocation;
+	$self->generateThumbnail($session{setting}{maxImageSize});
+	$storage->deleteFile($self->get("filename"));
+	$storage->renameFile('thumb-'.$self->get("filename"),$self->get("filename"));
+	$self->generateThumbnail($session{form}{thumbnailSize});
+}
+
+#-------------------------------------------------------------------
+sub setSize {
+	my $self = shift;
+	my $input = shift;
+	my $storage = $self->getStorageLocation;
+	my $size = ($input > $storage->getFileSize($self->get("filename"))) ? $input : $storage->getFileSize($self->get("filename"));
+	return $self->SUPER::setSize($size);
 }
 
 #-------------------------------------------------------------------
@@ -218,8 +231,6 @@ sub view {
 	return $self->processTemplate(\%var,$self->get("templateId"));
 }
 
-
-
 #-------------------------------------------------------------------
 sub www_edit {
         my $self = shift;