else {
$STASH{tpl_vars}->{attachment_uploaded} = $filename;
$STASH{tpl_vars}->{attachment_uploaded_id} = $sth->insert_id;
}

else {
$STASH{tpl_vars}->{attachment_uploaded} = $filename;
$STASH{tpl_vars}->{attachment_uploaded_id} = $sth->insert_id;

# Mod by andy..,
shrink_image($STASH{tpl_vars}->{attachment_uploaded_id});

}

sub shrink_image {

my $attachment_id = $_[0];

my $file_stats = $DB->table("TempAttachment")->select( { tempatt_id => $attachment_id } )->fetchrow_hashref;

# print $IN->header;
#use Data::Dumper;
#print Dumper($file_stats);

if ($file_stats->{tempatt_content} eq "image/gif" || $file_stats->{tempatt_content} eq "image/jpeg") {

my $fletter = ( reverse split //, $file_stats->{tempatt_id} )[0];

my $path = "$CFG->{admin_root_path}/attachments/temp/$fletter/$file_stats->{tempatt_id}";

use Image::Size;
my ($x,$y) = imgsize($path);

if ($x > 700 || $y > 700) {

my $command = qq~convert '$path' -resize 700x700 ${path}.new~;

`$command`;

my $command2 = qq|rm -f $path|;
`$command2`;

my $command3 = qq~mv ${path}.new $path~;
`$command3`;

my $size = -s $path;

my $attach = $DB->table('TempAttachment');

$attach->update( { tempatt_size => $size } , { tempatt_id => $attachment_id } ) || die $GT::SQL::error;
}

}


}