word/edit: crop coordinates separate from convert parameters

[sheet.git] / word / edit.plp

diff --git a/word/edit.plp b/word/edit.plp
index 426fb5c281e577f9fbe9d0a458f345df9f341d7c..9af73cdb3737e3cfbb6bed374f447f0ddf4809d0 100644 (file)
--- a/word/edit.plp
+++ b/word/edit.plp
@@ -111,6 +111,7 @@ my %wordcol = (
        convert => {-label => 'Convert options', -json => 'image', -multiple => 1, -src => sub {
                return "data/word/32/$_[0]->{id}.jpg";
        }},
+       crop32  => {-label => 'Crop 3:2', -json => 'image'},
        story   => {-label => 'Story', type => 'textarea', hidden => 'hidden'},
 );
 
@@ -218,7 +219,7 @@ elsif (defined $post{form}) {{
        $reimage++ if $fields{rethumb};  # force refresh
        if ($reimage) {
                eval {
-                       $image->generate($wordcol{convert}->{-src}->($row), $imagecol->{convert});
+                       $image->generate($wordcol{convert}->{-src}->($row), $imagecol);
                } or do {
                        my ($warn, @details) = ref $@ ? @{$@} : $@;
                        Alert([ "Thumbnail image not generated", $warn ], @details);